home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 27 / Mac Magazin and MacEasy Magazine CD - Issue 27.iso / Grafik & Text / SGMLTool Folder / SgmlForm.pl < prev    next >
Text File  |  1996-10-21  |  75KB  |  2,424 lines
  1. #---------------------------------- NOTICE --------------------------------------
  2. #
  3. # SgmlForm is the script of MacJPerl.
  4. # Rewrite the &MacPerl'function()s if you want to run SgmlForm on another machine.
  5. # SgmlForm runs without any argument.
  6. #
  7. #------------------------------ About SgmlForm -----------------------------------
  8. #
  9. # SgmlForm is FREE software.
  10. # I grant to any user an royalty-free, worldwide, non-exclusive license to use, execute, reproduce, display, perform and distribute copies of SgmlForm.
  11. # SgmlForm processes the ESIS-formatted data that is generated by SGML-parser `MacSgmls'.
  12. # SgmlForm reads the source-file(ESIS-formatted), and generates the target-file(text-file for TeX or PageMaker) while referring to the map-info-file.
  13. # SgmlForm is operated by special commands.
  14. # SgmlsForm was developed by KISI,KAZUTAKA.
  15. # Write me when you detected any error.
  16. # Also write me when you adapted to new version.
  17. # The English writing is my weak point.
  18. # If you will correct this document, I am very glad.
  19. #  e-mail : NAG00251@niftyserve.or.jp
  20. # (c) Sep.30 1996 KISI
  21. #
  22. #----------------------------------------------------------------------------------
  23. #
  24. #  SgmlForm
  25. #  (c) 1996 KISI
  26. #
  27. $ver = '1.4' ;
  28. $language = 'E' ;
  29. #
  30. # Initialize
  31. $lines = 30 ; $columns = 70 ;
  32. $esi = 'esi' ; $map = 'MPM' ; $tgt = 'pm' ; $creator = 'ttxt' ;
  33. $eerr = '' ; $jerr = '' ;
  34. while ($doc = <DATA>) {
  35.   if (substr($doc, 0, 2) eq '!!') { last ; }
  36.   if (substr($doc, 0, 1) eq '?') { $lang = substr($doc, 1, 1) ; next ; }
  37.   if ($lang eq 'E') { $eerr .= $doc ; } else { $jerr .= $doc ; }
  38. }
  39. unless (open(CNF, "<SgmlForm.cfg")) {
  40.   if ($language eq 'E') {
  41.     print("\n Can not open `SgmlForm.cfg' !") ;
  42.     print("$eerr") ;
  43.     &command("O K") ;
  44.   }
  45.   else {
  46.     print("\n ä¬ã´ïœêîÉtÉ@ÉCÉãÅgSgmlForm.cfgÅhÇ™äJÇ´Ç‹ÇπÇÒÅI") ;
  47.     print("$jerr") ;
  48.     &command("ÇÕÇ¢") ;
  49.   }
  50.   exit(0) ;
  51. }
  52. #
  53. # Set the Environment Variables
  54. while ($cfg = <CNF>) {
  55.   chop($cfg) ;
  56.   if ($cfg =~ m!^LANGUAGE\=(.*)!) {$language = $1 ; next ; }
  57.   if ($cfg =~ m!^PATH\=(.*)!) {$lib = $1 ; @INC = ($lib) ; require('GUSI.ph') ; next ; }
  58.   if ($cfg =~ m!^LINES\=(.*)!) {$lines = 0+$1 ; next ; }
  59.   if ($cfg =~ m!^COLUMNS\=(.*)!) {$columns = 0+$1 ; next ; }
  60.   if ($cfg =~ m!^ESIS\=(.*)!) {$esi = $1 ; next ; }
  61.   if ($cfg =~ m!^MAP\=(.*)!) {$map = $1 ; next ; }
  62.   if ($cfg =~ m!^TARGET\=(.*)!) {$tgt = $1 ; next ; }
  63.   if ($cfg =~ m!^CREATOR\=(.*)!) {$creator = $1 ; next ; }
  64.   print("  Unknown parameter ! $cfg\n") ;
  65. }
  66. close(CNF) ;
  67. #
  68. # Interprete the Command
  69. &openning() ;
  70. while (1) {
  71.   $com = &command("$filename\{$dtd\}[$esi][$map][$tgt($creator)]") ;
  72.   $mapfile = $path.':'.$dtd.'.'.$map ;
  73.   $tgtfile =$path.':'.$filename.'.'.$tgt ;
  74.   if ($com eq '?') { &help() ; next ; }
  75.   if ($com eq 'd') { &displaydoc($dworkfile) ; next ; }
  76.   if ($com eq 'o') { &outputdoc($dworkfile) ; next ; }
  77.   if ($com eq 'v') { &version() ; next ; }
  78.   if ($com eq 'q') { &ending() ; last ; }
  79.   if ($com eq 's') { &selSource() ; next ; }
  80.   if ($com eq 't') { &displaydoc($dtd.'.dtd') ; next ; }
  81.   if ($com eq 'm') { &selMap() ; next ; }
  82.   if ($com eq 'a') { &selTarget() ; next ; }
  83.   if ($com eq 'f') { &forming() ; next ; }
  84.   if ($com eq 'r') { &review() ; next ; }
  85.   if ($com eq 'i') { &displayitext ; next ; }
  86.   if ($com eq 'x') { &displayctext ; next ; }
  87.   if ($com eq 'l') { &setLines() ; next ; }
  88.   if ($com eq 'c') { &setCols() ; next ; }
  89.   if ($com eq 'h') { &converthtml() ; next ; }
  90.   print("  ?\n") ;
  91. }
  92. exit(0);
  93. #
  94. # Initialize Global Variables
  95. sub openning {
  96.   local($doc) ;
  97.   %tcount = () ;  %tid = () ; %tatt = () ; $hook = '' ; $gi = '' ;
  98.   $inhibit = '' ; $lastGI = '' ; %thook = () ; $hookGI = '' ;
  99.   $delcr = 0 ; $repstr = 0 ; $escstr = 0 ;
  100.   $line = 0 ; $filename = '' ; $dispitext = 0 ; $dispctext = 0 ; $path = '' ;
  101.   $dtd = '' ;
  102.   $filename = '' ; $esifile = '' ; $mapifile = '' ; $tgtfile = '' ;
  103.   $dworkfile = &tempFile() ;
  104.   $mworkfile = '' ; $eworkfile = '' ;
  105.   %rpostable = () ; $rpos = 0 ; %xpostable = () ;
  106.   $lengthlength = 10 ;
  107.   $eot = '~' x $lengthlength ;
  108. #
  109. # Set the Online Manual
  110.   unless(open(DWORK, ">$dworkfile")) { print("  Can not open working-file `$dworkfile' !\n") ; return ; }
  111.   while ($doc = <DATA>) {
  112.     if (substr($doc, 0, 2) eq '!'.$language) { last ; }
  113.   }
  114.   while ($doc = <DATA>) {
  115.     if (substr($doc, 0, 2) eq '!!') { last ; }
  116.     print(DWORK "$doc") ;
  117.   }
  118.   if ($language eq 'E') { print(DWORK "$eerr") ; } else  { print(DWORK "$jerr") ; }
  119.   close(DWORK) ;
  120.   $eerr = '' ; $jerr = '' ;
  121.   &title() ;
  122.   return ;
  123. }
  124. #
  125. # Forming
  126. sub forming {
  127. # local($v, $rpos, $att, $val, $d) ;
  128.   print("  Forming ...\n") ;
  129.   unless (&setesi()) { print("  Source Input process is failed !\n") ; return ; }
  130.   unless (&setmap()) { print("  Map-info Input process is failed !\n") ; return ; }
  131. # while (($tag, $rpos) = each %rpostable) { print("\n $tag $rpos") ; }
  132. # while (($tagexp, $rpos) = each %xpostable) { print("\n $tagexp $rpos") ; }
  133.   unless (&pass1()) { print("  Forming process is failed !\n") ; return ; }
  134. # while (($att, $val) = each %tid) { print("\n $att $val") ; }
  135.   &pass2() ;
  136.   if ($mworkfile ne '') { unlink($mworkfile) ; }
  137.   if ($eworkfile ne '') { unlink($eworkfile) ; }
  138.   print("  Forming process is completed.\n") ;
  139.   return ;
  140. }
  141. #
  142. # Warming up
  143. sub setesi {
  144.   local($e) ;
  145.   $eworkfile = &tempFile() ;
  146.   $esifile = $path.':'.$filename.'.esi' ;
  147.   unless(open(ESI, "<$esifile")) { print("  Can not open source-file `$esifile' !\n") ; return 0 ; }
  148.   unless(open(EWORK, ">$eworkfile")) { print("  Can not open working-file `$eworkfile' !\n") ; return 0 ; }
  149.   while ($e = <ESI>) {
  150.     chop($e) ;
  151.     if (substr($e, 0 ,1) eq '(') { print(EWORK "$e\n") ; next ; }
  152.     if (substr($e, 0 ,1) eq ')') { print(EWORK "$e\n") ; next ; }
  153.     if (substr($e, 0 ,1) eq '-') { ÷($e) ; next ; }
  154.     if (substr($e, 0 ,1) eq '&') { print(EWORK "$e\n") ; next ; }
  155.     if (substr($e, 0 ,1) eq '?') { print(EWORK "$e\n") ; next ; }
  156.     if (substr($e, 0 ,1) eq 'A') { print(EWORK "$e\n") ; next ; }
  157.     if (substr($e, 0 ,1) eq 'D') { print(EWORK "$e\n") ; next ; }
  158.     if (substr($e, 0 ,1) eq 'N') { print(EWORK "$e\n") ; next ; }
  159.     if (substr($e, 0 ,1) eq 'E') { print(EWORK "$e\n") ; next ; }
  160.     if (substr($e, 0 ,1) eq 'I') { print(EWORK "$e\n") ; next ; }
  161.     if (substr($e, 0 ,1) eq 'S') { print(EWORK "$e\n") ; next ; }
  162.     if (substr($e, 0 ,1) eq 's') { print(EWORK "$e\n") ; next ; }
  163.     if (substr($e, 0 ,1) eq 'p') { print(EWORK "$e\n") ; next ; }
  164.     if (substr($e, 0 ,1) eq 'f') { print(EWORK "$e\n") ; next ; }
  165.     if (substr($e, 0 ,1) eq '{') { print(EWORK "$e\n") ; next ; }
  166.     if (substr($e, 0 ,1) eq '}') { print(EWORK "$e\n") ; next ; }
  167.     if (substr($e, 0 ,1) eq 'L') { print(EWORK "$e\n") ; next ; }
  168.     if (substr($e, 0 ,1) eq '#') { print(EWORK "$e\n") ; next ; }
  169.     if (substr($e, 0 ,1) eq 'C') { print(EWORK "$e\n") ; last ; }
  170.     print(' ? $e') ;
  171.   }
  172.   close(ESI) ;
  173.   close(EWORK) ;
  174.   return 1 ;
  175. }
  176. #
  177. sub divide {
  178.   local($e) = @_ ;
  179.   local($data, $length, $nlength, $d, $pos, $npos) ;
  180.   $data = substr($e, 1) ;
  181.   $length = length($data) ;
  182.   $pos = 0 ;
  183.   while (1) {
  184.     $npos = index($data, '\n', $pos) ;
  185.     if ($npos >= 0) {
  186.       $nlength = $npos-$pos+2 ;
  187.       $d = substr($data, $pos, $nlength) ;
  188.       print(EWORK "-$d\n") ;
  189.       $pos += $nlength ;
  190.       if ($pos >= $length) { last ; }
  191.     }
  192.     else {
  193.       $d = substr($data, $pos) ;
  194.       print(EWORK "-$d\n") ;
  195.       last ;
  196.     }
  197.   }
  198.   return ;
  199. }
  200. #
  201. sub setmap {
  202.   local($m, $mm, $rdesc, $rlengthlength, $rlength) ;
  203.   if ($filename eq '') { print("  No Source-file !\n") ; return 0 ; }
  204.   if (($map eq '') || ($tgt eq '')) { print("  No file extension !\n") ; return 0 ; }
  205.   unless (-e $mapfile) { print("  No map-info-file `$mapfile' !\n") ;  return 0 ; }
  206.   unless (open(MAP, "<$mapfile")) { print("  Can not open map-info-file `$mapfile' !\n") ; return 0 ; }
  207.   $mworkfile = &tempFile() ;
  208.   unless(open(MWORK, ">$mworkfile")) { print("  Can not open working-file `$mworkfile' !\n") ; return 0 ; }
  209.   %rpostable = () ; %xpostable = () ;
  210.   $rpos = 0 ;
  211.   $rdesc = 0 ;
  212.   while ($m = <MAP>) {
  213.     $mm = substr($m, 0, 1) ;
  214.     if ($mm eq '!') { next ; }
  215.     if (($mm eq '(') || ($mm eq ')') || ($mm eq 'C')) {
  216.       if ($rdesc) {
  217.         unless (seek(MWORK, $rpos, 0)) { print("  I/O error has occurred !\n") ; return 0 ; }
  218.         syswrite(MWORK, $eot, $lengthlength) ;
  219.         $rpos += $lengthlength ;
  220.       }
  221.       $rdesc = 0 ;
  222.       chop($m) ;
  223.       if ($m =~ m!(.*)\t(.*)!) { $rpostable{$1} = '*' ; $xpostable{$m} = $rpos ; }
  224.                           else { $rpostable{$m} = $rpos ; }
  225.     }
  226.     else {
  227.       $rdesc = 1 ;
  228.       unless (seek(MWORK, $rpos, 0)) { print("  I/O error has occurred !\n") ; return 0 ; }
  229.       $rlength = $lengthlength+length($m)  ;
  230.       $rlengthlength = length($rlength) ;
  231.       $r = (' 'x($lengthlength-$rlengthlength)).$rlength.$m ;
  232.       syswrite(MWORK, $r, $rlength) ;
  233.       $rpos += $rlength ; 
  234.     }
  235.   }
  236.   unless (seek(MWORK, $rpos, 0)) { print("  I/O error has occurred !\n") ; return 0 ; }
  237.   syswrite(MWORK, $eot, $lengthlength) ;
  238.   close(MAP) ;
  239.   close(MWORK) ;
  240.   return 1 ;
  241. }
  242. #
  243. # Pass-1
  244. sub pass1 {
  245.   local($e) ;
  246.   unless (open(MAP, "<$mapfile")) { print("  Can not open map-info-file `$mapfile' !\n") ; return 0 ; }
  247.   unless(open(ESI, "<$eworkfile")) { print("  Can not open working-file `$eworkfile' !\n") ; return 0 ; }
  248.   %tcount = () ; %tid = () ; $hook = '' ;
  249.   while ($e = <ESI>) {
  250.     chop($e) ;
  251.     if (substr($e, 0 ,1) eq '(') { &seek($e) ; next ; }
  252.     if (substr($e, 0 ,1) eq ')') { next ; }
  253.     if (substr($e, 0 ,1) eq '-') { next ; }
  254.     if (substr($e, 0 ,1) eq '&') { next ; }
  255.     if (substr($e, 0 ,1) eq '?') { next ; }
  256.     if (substr($e, 0 ,1) eq 'A') { &hook($e) ; next ; }
  257.     if (substr($e, 0 ,1) eq 'D') { next ; }
  258.     if (substr($e, 0 ,1) eq 'N') { next ; }
  259.     if (substr($e, 0 ,1) eq 'E') { next ; }
  260.     if (substr($e, 0 ,1) eq 'I') { next ; }
  261.     if (substr($e, 0 ,1) eq 'S') { next ; }
  262.     if (substr($e, 0 ,1) eq 's') { next ; }
  263.     if (substr($e, 0 ,1) eq 'p') { next ; }
  264.     if (substr($e, 0 ,1) eq 'f') { next ; }
  265.     if (substr($e, 0 ,1) eq '{') { next ; }
  266.     if (substr($e, 0 ,1) eq '}') { next ; }
  267.     if (substr($e, 0 ,1) eq 'L') { next ; }
  268.     if (substr($e, 0 ,1) eq '#') { next ; }
  269.     if (substr($e, 0 ,1) eq 'C') { last ; }
  270.     if ($dispitext) { print(' ? $e') ; }
  271.   }
  272.   close(ESI) ;
  273.   return 1 ;
  274. }
  275. # 
  276. sub hook {
  277.   local($arg) =@_ ;
  278.   local($t, @values) ;
  279.   $t = substr($arg, 1) ;
  280.   @values = split(/ /, $t) ;
  281.   if (($values[0] eq 'ID') && ($values[2] ne '')) { $hook = $values[2] ; }
  282.   return ;
  283. }
  284. # 
  285. sub seek {
  286.   local($arg) =@_ ;
  287.   local($gi) ;
  288.   $gi = substr($arg, 1) ;
  289.   if ($hook ne '') {
  290.     $tcount{$gi} ++ ;
  291.     $tid{$gi.'_'.$hook} = $tcount{$gi} ;
  292.     $hook = '' ;
  293.  }
  294.   return ;
  295. }
  296. #
  297. # Pass-2
  298. sub pass2 {
  299.   local($e) ;
  300.   open(ESI, "<$eworkfile") ; open(TGT, ">$tgtfile") ;
  301.   unless(open(MWORK, "<$mworkfile")) { print("  Can not open working-file `$mworkfile' !\n") ; return 0 ; }
  302.   $line = 0 ; %tatt = () ; %tav = () ; @tnest = () ; %wav = () ;
  303.   %tclist = () ;
  304.   @datatable = () ; @esctable = () ; $escx = 1 ;
  305.   @stable = () ; @ttable = () ; $rplx = 1 ;
  306.   $inhibit = '' ; $lastGI = '' ; %thook = () ; $hookGI = '' ;
  307.   while ($e = <ESI>) {
  308.     chop($e) ;
  309.     if ($dispitext) { &lprint("\n $e", 0) ; }
  310.     if (substr($e, 0 ,1) eq '(') { &gis($e) ;  next ; }
  311.     if (substr($e, 0 ,1) eq ')') { &gie($e) ;  next ; }
  312.     if (substr($e, 0 ,1) eq '-') { &data($e) ; next ; }
  313.     if (substr($e, 0 ,1) eq '&') { next ; }
  314.     if (substr($e, 0 ,1) eq '?') { next ; }
  315.     if (substr($e, 0 ,1) eq 'A') { &att($e) ; next ; }
  316.     if (substr($e, 0 ,1) eq 'D') { next ; }
  317.     if (substr($e, 0 ,1) eq 'N') { next ; }
  318.     if (substr($e, 0 ,1) eq 'E') { next ; }
  319.     if (substr($e, 0 ,1) eq 'I') { next ; }
  320.     if (substr($e, 0 ,1) eq 'S') { next ; }
  321.     if (substr($e, 0 ,1) eq 's') { next ; }
  322.     if (substr($e, 0 ,1) eq 'p') { next ; }
  323.     if (substr($e, 0 ,1) eq 'f') { next ; }
  324.     if (substr($e, 0 ,1) eq '{') { next ; }
  325.     if (substr($e, 0 ,1) eq '}') { next ; }
  326.     if (substr($e, 0 ,1) eq 'L') { next ; }
  327.     if (substr($e, 0 ,1) eq '#') { next ; }
  328.     if (substr($e, 0 ,1) eq 'C') { &end($e) ;  last ; }
  329.   }
  330.   close(ESI) ; close(TGT) ;
  331.   close(MWORK) ;
  332.   &MacPerl'SetFileInfo($creator, 'TEXT', $tgtfile) ;
  333.   return ;
  334. }
  335. # 
  336. sub end {
  337.   local($arg) = @_ ;
  338.   local($t) ;
  339.   $t = &lookup($arg) ;
  340.   if ($dispitext) { print("\n") ; }
  341.   print(TGT $t) ; if ($dispctext) { print("\n ") ; print($t) ; }
  342.   return ;
  343. }
  344. # 
  345. sub gis {
  346.   local($arg) = @_ ;
  347.   local($t, $att, $value) ;
  348.   $gi = substr($arg, 1) ;
  349.   $lastGI = $gi ;
  350.   $crefgi = $gi ;
  351.   push(@tnest, $gi) ;
  352.   $nest = $#tnest ;
  353.   while (($att, $value) = each %tatt) {
  354.     $tav{$nest.$gi.'_'.$att} = $value ;
  355. #   print("\n ( $nest $gi $att $value") ;
  356.   }
  357.   $t = &lookup($arg) ;
  358.   if ($t ne '') { print(TGT $t) ; if ($dispctext) { print("\n ") ; print($t) ; } }
  359.   $hook = '' ;
  360.   return ;
  361. }
  362. # 
  363. sub gie {
  364.   local($arg) = @_ ;
  365.   local($t, $k, $v) ;
  366.   $gi = substr($arg, 1) ;
  367.   $crefgi = $gi ;
  368.   $lastGI = '~~~~~~~~' ;
  369.   $nest = $#tnest ;
  370.   $t = &lookup($arg) ;
  371.   if ($t ne '') { print(TGT $t) ; if ($dispctext) { print("\n ") ; print($t) ; } }
  372.   %wav = () ; while (($k,$v) = each %tav) { $k=~ m!^(\d+)|(.*)! ; if ($1 != $nest) { $wav{$k} = $v ; } }
  373.   %tav = () ; while (($k,$v) = each %wav) { $tav{$k} = $v ; } %wav = () ;
  374. # while (($k,$v) = each %tav) { print("\n ) $k $v") ; }
  375.   $ngi = pop(@tnest) ;
  376.   %tatt = () ; $hook = '' ; $hookGI = '' ;
  377.   return ;
  378. }
  379. # 
  380. sub data {
  381.   local($arg) = @_ ;
  382.   local($t) ;
  383.   $t = &charconvert(substr($arg, 1)) ;
  384.   if ($hookGI eq $lastGI) { $thook{$hookGI} = $thook{$hookGI}.$t ; }
  385.   if ($t ne '' && ($inhibit ne $lastGI)) { print(TGT $t) ; if ($dispctext) { print("\n ") ; print($t) ; } }
  386.   return ;
  387. }
  388. # 
  389. sub att {
  390.   local($arg) = @_ ;
  391.   local($t, $values, $k, $v) ;
  392.   $t = substr($arg, 1) ;
  393.   @values = split(/ /, $t) ;
  394.   if ($values[2] ne '') { $tatt{$values[0]} = $values[2] ; }
  395. # while (($k,$v) = each %tatt) { print("\n att $k $v") ; }
  396.   return ;
  397. }
  398. #
  399. # Lookup the Map-info
  400. sub lookup {
  401.   local($arg) = @_ ;
  402.   local($k, $rpos, $r, $m, $cexp, $cc, $tagexp, $tag, $exp) ;
  403.   $rpos = $rpostable{$arg} ;
  404.   if ($rpos eq '') { return '' ; }
  405.   if ($rpos eq '*') {
  406.     $cc = 0 ;
  407.     foreach $tagexp (keys %xpostable) {
  408.       $tagexp =~ m!(.*)\t(.*)! ; $tag = $1 ; $exp=$2 ;
  409.       if ($tag eq $arg) {
  410.         $cexp = '$cc = '.$exp ;
  411.         eval($cexp) ;
  412.         if ($@ ne '') { print("  Invalid map-info ! : $@ -> $tag $exp") ; return '' ; }
  413.         if ($cc) { $rpos = $xpostable{$tagexp} ; last ; }
  414.       }
  415.     }
  416.     unless ($cc) { return '' ; }
  417.   }
  418. # print("\n $arg $rpos") ;
  419.   $r = '' ;
  420.   while (1) {
  421.     unless (seek(MWORK, $rpos, 0)) { print("  I/O error has occurred !\n") ; return '' ; }
  422.     $prebuffer = ' ' x $lengthlength ;
  423.     sysread(MWORK, $prebuffer, $lengthlength) ;
  424.     if ($prebuffer eq $eot) { last ; }
  425.     $rlength = $prebuffer + 0 ;
  426.     $m = ' ' x $rlength ;
  427.     sysread(MWORK, $m, $rlength) ;
  428.     $com = substr($m, 0, 1) ;
  429.     $rpos += $rlength ;
  430.     if ($com eq '~') {
  431.       $mapscript = substr($m, 2, $rlength-$lengthlength-2) ;
  432.       eval($mapscript) ; if ($@ ne '') { print("  Invalid map-info ! : $@ -> $mapscript") ; }
  433.       next ;
  434.     }
  435.     if ($com eq "\t") {
  436.       $m = substr($m, 1, $rlength-$lengthlength-1) ;
  437.       chop($m) ;
  438.       $r = $r.&valconvert($m) ;
  439.       next ;
  440.     }
  441.   }
  442.   return $r ;
  443. }
  444. #
  445. # Convert the Character-value
  446. sub charconvert {
  447.   local($arg) = @_ ;
  448.   local($pre, $post, $octals, $octal, $pattern, $d, $data, $esc, $s, $t, $y, $yy) ;
  449. #
  450.   $arg =~ s!\\\\!"\x1f"!eg ;
  451. #
  452.   while (1) {
  453.     if ($arg =~ m!(.*)(\\\d\d\d)(.*)!) {
  454.       $pre = $1 ; $octals = $2; $post = $3 ;
  455.       $octals =~ m!\\(\d\d\d)! ;
  456.       $octal = pack('c', oct($1)) ;
  457.       if ($octal == 10) { $octal = '' ; }
  458.       $arg = $pre.$octal.$post ;
  459.     }
  460.     else { last ; }
  461.   }
  462. #
  463.   if ($delcr) { $arg =~ s!\\n!!g ; } else { $arg =~ s!\\n!\n!g ;} 
  464. #
  465.   $arg =~ s!\x1f!"\\\\"!eg ;
  466. #
  467.   if ($escstr) {
  468.     $pattern = '[' ; foreach $d (@datatable) { $pattern .= $d ; } $pattern .= ']' ;
  469.     if ($pattern ne '[]') {
  470.       $arg =~ tr!\\!\x1d! ; $arg =~ tr!^!\x1c! ; $arg =~ tr!$!\x1b! ;
  471.       if ($arg =~ m!$pattern!) {
  472.         foreach $d (1 .. $#datatable) {
  473.           $data = $datatable[$d] ;
  474.           $esc = "\xff".pack("C", $d) ;
  475.           $arg =~ s!$data!$esc!g ;
  476.         }
  477.         foreach $d (1 .. $#esctable) {
  478.           $data = '\xff'.pack("C", $d) ;
  479.           $esc = $esctable[$d] ;
  480.           $arg =~ s!$data!$esc!g ;
  481.         }
  482.       }
  483.       $arg =~ tr!\x1d!\\! ; $arg =~ tr!\x1c!^! ; $arg =~ tr!\x1b!$! ;
  484.     }
  485.   }
  486. #
  487.   if ($repstr) {
  488.     foreach $d (1 .. $#stable) {
  489.       $s = $stable[$d] ; $t = $ttable[$d] ;
  490.       $arg =~ s!$s!$t!g ;
  491.     }
  492.   }
  493.   return $arg ;
  494. }
  495. #
  496. # Convert the Changing-value
  497. sub valconvert {
  498.   local($arg) = @_ ;
  499.   local($pre, $post, $attr, $val, $refgi, $ref, $refatt, $refid) ;
  500.   while (1) {
  501.     if ($arg =~ m!(.*)~(.*)~(.*)!) {
  502.       $pre = $1 ; $attr = $2; $post = $3 ;
  503.       if (substr($attr, 0, 1) eq '$') { eval('$val='.$attr.';') ; }
  504.       else {
  505.         if ($attr =~ m!(.*)_(.*)!) { $refgi = $1 ; $refatt = $2 ; }
  506.                               else { $refgi = $crefgi ; $refatt = $attr ; }
  507.         if (substr($refgi, 0 , 1) eq '#') {
  508.           $refgi = substr($refgi, 1) ;
  509.           if (($refatt eq 'ID') || ($refatt eq 'REFID')) {
  510.             $refid = $tav{$nest.$crefgi.'_'.$refatt} ;
  511.             $val = $tid{$refgi.'_'.$refid} ;
  512.           }
  513.           else { print("\n Illegal use ! -> $arg") ; return '' ; }
  514.         }
  515.         else {
  516.           $val = $tav{$nest.$refgi.'_'.$refatt} ;
  517.         }
  518.       }
  519.       $arg = $pre.$val.$post ;
  520.     }
  521.     else { last ; }
  522.   }
  523.   $arg =~ s!\\n!\n!g ;
  524.   return $arg ;
  525. }
  526. #
  527. # Select the Source-file
  528. sub selSource {
  529.   $filename = &MacPerl'Choose(&GUSI'AF_FILE, 0, "Select Source-file", &GUSI'pack_sa_constr_file('TEXT')) ;
  530.   if ($filename eq '') { return ; }
  531.   unless ($filename =~ m/(.*)\.($esi)$/) { print("  `$esifile' is not source-file !\n") ; return ; }
  532.   $filename = $1 ;
  533.   $path = '' ;
  534.   while (1) {
  535.     unless ($filename =~ m!(.*):(.*)$!) { last ; }
  536.     $path = $path.':'.$1 ;
  537.     $filename = $2 ;
  538.   }
  539.   $path = substr($path, 1) ;
  540.   $esifile = $path.':'.$filename.'.esi' ;
  541.   unless(open(ESI, "<$esifile")) { print("  Can not open source-file `$esifile' !\n") ; return ; }
  542.   while ($e = <ESI>) {
  543.     chop($e) ;
  544.     if (substr($e, 0 ,1) eq '(') { $dtd = substr($e, 1) ; last ; }
  545.   }
  546.   close(ESI) ;
  547.   print("  The source-file is `$esifile'.\n") ;
  548.   print("  The DTD is `$dtd'.\n") ;
  549.   return ;
  550. }
  551. #
  552. # Select the Mapping
  553. sub selMap {
  554.   local($direct) ;
  555.   $direct = &MacPerl'Pick("Select the target", 'PageMaker[MPM]', 'TeX[MTX]', 'WWW[MWW]', 'TEXT[MTT]') ;
  556.   if ($direct eq '') {
  557.     $map = &MacPerl'Ask('The file extension of map-info-file is ?') ;
  558.     $tgt = &MacPerl'Ask('The file extension of target-file is ?') ;
  559.     if ($map ne '') { print("  The file extension of map-info-file is `$map'.\n") ; }
  560.     if ($tgt ne '') { print("  The file extension of target-file is `$tgt'.\n") ; }
  561.     return ;
  562.   }
  563.   if ($direct eq 'PageMaker[MPM]') { $map = 'MPM' ; $tgt = 'pm' ; }
  564.   if ($direct eq 'TeX[MTX]') { $map = 'MTX' ; $tgt = 'tex' ; }
  565.   if ($direct eq 'WWW[MWW]') { $map = 'MWW' ; $tgt = 'htm' ; }
  566.   if ($direct eq 'TEXT[MTT]') { $map = 'MTT' ; $tgt = 'txt' ; }
  567.   print("  The target is `$direct'.\n") ;
  568.   print("  The file extension of map-info-file is `$map'.\n") ;
  569.   print("  The file extension of target-file is `$tgt'.\n") ;
  570.   return ;
  571. }
  572. #
  573. # Select the File Creator of the Target-File
  574. sub selTarget {
  575.   $creator = &MacPerl'Pick('Select the file creator of target-file', 'ttxt', 'Edt7') ;
  576.   if ($creator eq '') { $creator = &MacPerl'Ask('The file creator of target-file is ?') ; if ($creator eq '') { return ; } }
  577.   print("  The file creator of target-file is '$creator'.\n") ;
  578.   return ;
  579. }
  580. #
  581. # Exit the Process
  582. sub ending {
  583.   unlink($dworkfile) ;
  584.   &command("The process is completed.") ;
  585. }
  586. #
  587. # Dispaly the Title of SgmlForm
  588. sub title {
  589.   &version() ;
  590.   print <<EOF ;
  591.  Please type `?'
  592.  
  593. EOF
  594.   return ;
  595. }
  596. #
  597. # Display the Version of SgmlForm
  598. sub version {
  599.   print <<EOF ;
  600.  
  601.  SgmlForm ver.$ver
  602.  (c) 1996 KISI
  603.  
  604. EOF
  605.   return ;
  606. }
  607. #
  608. # Accept the Command
  609. sub command {
  610.   local($prompt) = @_ ;
  611.   local ($accept) ;
  612.   print(" $prompt > ") ;
  613.   $accept = <> ;
  614.   chop($accept) ;
  615.   if ($accept ne '') { return $accept ; }
  616.                 else { return '/' ; }
  617. }
  618. #
  619. # Display the Line
  620. sub lprint {
  621.   local($data, $control) = @_ ;
  622.   local($a, $b, @sdata, $com) ;
  623.   if (substr($data, 0, 1) eq "\n") { $line ++ ; }
  624.   @sdata = split(//, $data) ;
  625.   $b = 0 ;
  626.   foreach $a (@sdata) {
  627.     print("$a") ;
  628.     $b += length($a) ;
  629.     if ($b >= $columns) { print("\n") ; $line ++ ; $b = 0 ; }
  630.     if ($control && ($line >= $lines)) {
  631.       print("\n") ;
  632.       $com = &command(" Next : return, Cancel : others") ;
  633.       print("\n") ;
  634.       if ($com ne '/') { return 0 ; }
  635.       $line = 0 ;
  636.     }
  637.   }
  638.   return 1 ;
  639. }
  640. #
  641. #
  642. sub review {
  643.   $txtfile = &MacPerl'Choose(&GUSI'AF_FILE, 0, "Select Text-file", &GUSI'pack_sa_constr_file('TEXT')) ;
  644.   if ($txtfile eq '') { return ; }
  645.   &displaydoc($txtfile) ;
  646.   return ;
  647. }
  648. #
  649. # Display the Document
  650. sub displaydoc {
  651.   local($docfile) = @_ ;
  652.   local($doc) ;
  653.   unless (open(DOC, "<$docfile")) { print("\n Can not open the document `$docfile' !\n") ;  return ; }
  654.   $line = 0 ;
  655.   while ($doc = <DOC>) {
  656.     chop($doc) ;
  657.     unless (&lprint("\n $doc", 1)) { print("\n The display is aborted.\n") ; close(DOC) ; return ; }
  658.   }
  659.   close(DOC) ;
  660.   print("\n\n -----\n") ;
  661.   return ;
  662. }
  663. #
  664. # Text to HTML
  665. sub converthtml {
  666.   $txtfile = &MacPerl'Choose(&GUSI'AF_FILE, 0, "Select Text-file", &GUSI'pack_sa_constr_file('TEXT')) ;
  667.   if ($txtfile eq '') { return ; }
  668.   &outputdoc($txtfile) ;
  669.   return ;
  670. }
  671. # Save HTML Document
  672. sub outputdoc {
  673.   local($docfile) = @_ ;
  674.   local($doc, $docx, $olist, $olistx, $ol, $item, $table, $no, $h, @tab, $pre, $srcalt, $err, $about, $outfilename) ;
  675.   unless (open(DOC, "<$docfile")) { print("\n Can not open the document `$docfile' !\n") ;  return ; }
  676.   $about = '' ;
  677.   while ($doc = <DOC>) {
  678.     chop($doc) ;
  679.     if ($doc =~ m!^\#\s{1,}(.*)$!) { $about = $1 ; last ; }
  680.   }
  681.   if ($about eq '') { print("\n Can not find `#' header !\n") ; }
  682.   close(DOC) ;
  683.   $outfilename = $about.'.htm' ;
  684. #
  685.   $outfile = &MacPerl'Choose(&GUSI'AF_FILE, 0, "", "", &GUSI'CHOOSE_NEW + &GUSI'CHOOSE_DEFAULT, "$outfilename") ;
  686.   if ($outfile eq '') { return ; }
  687.   unless (open(DOC, "<$docfile")) { print("\n Can not open the document `$docfile' !\n") ;  return ; }
  688.   unless (open(OUT, ">$outfile")) { print("\n Can not open the document `$outfile' !\n") ;  return ; }
  689.   $olist = 0 ; $olistx = 0 ; $table = 0 ; $pre = 0 ; $err = 0 ;
  690.   print(OUT "<!DOCTYPE HTML SYSTEM []>\n") ;
  691.   print(OUT "<HTML>\n<HEAD>\n<TITLE>$about</TITLE>\n</HEAD>\n") ;
  692.   print(OUT "<BODY>\n") ;
  693.   while ($doc = <DOC>) {
  694.     chop($doc) ;
  695.     if ($doc eq '') { next ; }
  696. # Escape
  697.     $doc =~ s!&!&!g ;
  698.     $doc =~ s!<!<!g ;
  699.     $doc =~ s!>!>!g ;
  700. # header
  701.     if ($doc =~ m!^\#\s{1,}(.*)$!) { next ; }
  702. # image
  703.     if ($doc =~ m!^\*\s{1,}(.*)$!) {
  704.       $srcalt = $1 ;
  705.       if ($srcalt =~ m!^(.*)\s{1,}(.*)$!) { print(OUT "<IMG SRC=\"$1\" ALT=\"$2\">\n") ; }
  706.         else { print(OUT "<IMG SRC=\"$srcalt\">\n") ; }
  707.        next ;
  708.     }
  709. # table
  710.     if ($doc =~ m!^-!) {
  711.       if ($pre) { print(OUT "</PRE>\n") ; $pre = 0 ; }
  712.       if ($table == 0) { $table = 1 ; print(OUT "<TABLE BORDER=1>\n") ; @tab =() ; next ; }
  713.       if ($table == 1) { $table = 2 ; next ; }
  714.       if ($table == 2) { $table = 0 ; print(OUT "</TABLE>\n") ; next ; }
  715.     }
  716. # olist
  717.     if ($doc =~ m!^\((\d+\.?\d*\.?\d*)\)\s+(.*)$!) {
  718.       if ($pre) { print(OUT "</PRE>\n") ; $pre = 0 ; }
  719.       $no = $1 ; $item = $2 ;
  720.       $no =~ m!(\d+)\.?(\d*)\.?(\d*)! ;
  721.       if (($2 eq '') && ($3 eq '')) { $olist = 1 ; }
  722.       if (($2 ne '') && ($3 eq '')) { $olist = 2 ; }
  723.       if (($2 ne '') && ($3 ne '')) { $olist = 3 ; }
  724.       if ($olistx == 0) {
  725.         print(OUT "<OL>\n<LI>$item\n") ;
  726.         $olistx = $olist ; next ;
  727.       }
  728.       if ($olistx < $olist) {
  729.         print(OUT "<OL>\n<LI>$item\n") ;
  730.         $olistx = $olist ; next ;
  731.       }
  732.       if ($olistx > $olist) { 
  733.         while ($olistx-- > $olist) { print(OUT "</OL>\n") ; }
  734.         print(OUT "<LI>$item\n") ;
  735.         $olistx = $olist ; next ;
  736.       }
  737.       print(OUT "<LI>$item\n") ; next ;
  738.     }
  739. # heading
  740.     if ($doc =~ m!^(\d+\.?\d*\.?\d*)\s+(.*)$!) {
  741.       if ($pre) { print(OUT "</PRE>\n") ; $pre = 0 ; }
  742.       if ($olistx > 0) { while ($olistx--) { print(OUT "</OL>\n") ; } $olistx = 0 ; }
  743.       $no = $1 ; $item = $2 ;
  744.       $no =~ m!^(\d+)\.?(\d*)\.?(\d*)! ;
  745.       if (($2 eq '') && ($3 eq '')) { $h = 1 ; }
  746.       if (($2 ne '') && ($3 eq '')) { $h = 2 ; }
  747.       if (($2 ne '') && ($3 ne '')) { $h = 3 ; }
  748.       if ($h == 1) { print(OUT "<H1>$item</H1>\n") ; next ; }
  749.       if ($h == 2) { print(OUT "<H2>$item</H2>\n") ; next ; }
  750.       if ($h == 3) { print(OUT "<H3>$item</H3>\n") ; next ; }
  751.     }
  752. # description in table
  753.     if ($table > 0) {
  754.       $docx = $doc ;
  755.       while (1) {
  756.         unless ($docx =~ m!(.*)\s{2,}(.*)!) { last ; }
  757.         if ($2 ne '') { push (@tab, $2) ; }
  758.         $docx = $1 ;
  759.       }
  760.       if ($1 ne '') { push (@tab, $1) ; }
  761.       print(OUT "<TR>") ;
  762.       while (1) {
  763.         $item = pop(@tab) ;
  764.         if ($item eq '') { last ; }
  765.         if ($table == 1) { print(OUT "<TH>$item</TH>") ; }
  766.         if ($table == 2) { print(OUT "<TD>$item</TD>") ; }
  767.       }
  768.       print(OUT "</TR>\n") ;
  769.       next ;
  770.     }
  771. # preformatted
  772.     if ($doc =~ m!^ {2,}(.*)$!) {
  773.       if ($pre) { print(OUT "$doc\n") ; next ; }
  774.       $pre = 1 ;
  775.       print(OUT "<PRE>\n$doc\n") ; next ;
  776.     }
  777. # paragraph 
  778.     if ($doc =~ m!^ {1}(.*)$!) {
  779.       if ($pre) { print(OUT "</PRE>\n") ; $pre = 0 ; }
  780.       print(OUT "<P>$1\n") ;
  781.       next ;
  782.     }
  783.     print("\n Formating Error ! : $doc \n") ;
  784.     if ($err > 10) { return ; } else { $err++ ; }
  785.   }
  786. # end of document
  787.   if ($pre) { print(OUT "</PRE>\n") ; $pre = 0 ; }
  788.   if ($olistx > 0) { while ($olistx--) { print(OUT "</OL>\n") ; } $olistx = 0 ; }
  789.   print(OUT "</BODY>\n</HTML>\n") ;
  790.   close(DOC) ;
  791.   close(OUT) ;
  792.   &MacPerl'SetFileInfo($creator, 'TEXT', $outfile) ;
  793.   return ;
  794. }
  795. #
  796. # Switche to Display the input text 
  797. sub displayitext {
  798.   local($disp) = @_ ;
  799.   $dispitext ^= 1 ;
  800.   if ($dispitext) { print("  Display the input text.\n") ; }
  801.              else { print("  No display the input text.\n") ; }
  802.   return ;
  803. }
  804. #
  805. # Switche to Display the converted text 
  806. sub displayctext {
  807.   local($disp) = @_ ;
  808.   $dispctext ^= 1 ;
  809.   if ($dispctext) { print("  Display the converted text.\n") ; }
  810.              else { print("  No display the converted text.\n") ; }
  811.   return ;
  812. }
  813. #
  814. # Set the Number of Lines displayed
  815. sub setLines {
  816.   local($ln) ;
  817.   while (1) {
  818.     $ln = &command("Lines displayed is $lines.  number : lines, Cancel : return") ;
  819.     if ($ln eq '/') { return ; }
  820.     if ($ln =~ m!^\d{1,}$!) { $lines = 0+$ln ; return ; }
  821.   }
  822. }
  823. #
  824. # Set the Number of Columns displayed
  825. sub setCols {
  826.   local($cn) ;
  827.   while (1) {
  828.     $cn = &command("Columns displayed is $columns.  number : columns, Cancel : return") ;
  829.     if ($cn eq '/') { return ; }
  830.     if ($cn =~ m!^\d{1,}$!) { $columns = 0+$cn ; return ; }
  831.   }
  832. }
  833. #
  834. # Make the Temporary-working-file
  835. sub tempFile {
  836.   local($temp) ;
  837.   while (1) {
  838.     $temp = 'tempfile-'.int(rand(100)).'-'.int(rand(100)).'-'.int(rand(100)) ;
  839.     unless (-e $temp) { last ; }
  840.   }
  841.   return $temp ;
  842. }
  843. #
  844. # Display the Help Message
  845. sub help {
  846.   if ($language eq 'E') {
  847.   print <<EOF ;
  848.  
  849.  The format of command line :
  850.   f{}[s][m][t(c)] > command
  851.  
  852.  Where,
  853.    f   the filename of source-file
  854.    d   the filename of DTD-file
  855.    s   the file extension of source-file
  856.    m   the file extension of map-info-file
  857.    t   the file extension of target-file
  858.    c   the file creator of output-file
  859.  
  860.  Command :
  861.    q   quit
  862.    l   set the number of lines displayed
  863.    c   the number of columns displayed
  864.    ?   display the help message
  865.    d   display the online manual
  866.    o   save the online manual
  867.    v   display the version of SgmlForm
  868.    r   review the text file
  869.    t   display the document type definition
  870.    s   select the source-file(ESIS-format)
  871.    m   select the mapping
  872.    a   select the file creator of target-file
  873.    f   form to the target from the source
  874.    i   display the input text
  875.    x   display the converted text
  876.    h   Convert to HTML-format from the text-format
  877.  
  878. EOF
  879.   }
  880.   if ($language eq 'J') {
  881.   print <<EOF ;
  882.  
  883.  ÉRÉ}ÉìÉhçsÇÃå`éÆ
  884.   f{d}[s][m][t(c)] > ÉRÉ}ÉìÉh
  885.  
  886.  Ç±Ç±Ç≈ÅC
  887.    f    É\Å[ÉXÉtÉ@ÉCÉãÇÃñºëO
  888.    d    É\Å[ÉXÉtÉ@ÉCÉãÇÃï∂èëå^íËã`
  889.    s    É\Å[ÉXÉtÉ@ÉCÉãÇÃägí£éq
  890.    m    É}ÉbÉvèÓïÒÇÃägí£éq
  891.    t    É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇÃägí£éq
  892.    c    èoóÕÉtÉ@ÉCÉãÇÃÉNÉäÉGÅ[É^
  893.  
  894.   ÉRÉ}ÉìÉh
  895.    q    èàóùÇÃèIóπ
  896.    l    ï\é¶çsêîÇÃê›íË
  897.    c    ï\é¶åÖêîÇÃê›íË
  898.    ?    ÉwÉãÉvÉÅÉbÉZÅ[ÉWÇï\é¶
  899.    d    SgmlFormÇÃÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇï\é¶
  900.    o    SgmlFormÇÃÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇï€ë∂èoóÕ
  901.    v    Ç±ÇÃSgmlFormÇÃî≈Çï\é¶
  902.    r    É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÅiïœä∑åãâ ÅjÇï\é¶
  903.    t    ï∂èëå^íËã`Çï\é¶
  904.    s    É\Å[ÉXÉtÉ@ÉCÉãÅiESISå`éÆÅjÇëIë
  905.    m    É}ÉbÉsÉìÉOÇëIë
  906.    a    É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇÃÉNÉäÉGÅ[É^ÇëIë
  907.    f    É\Å[ÉXÉtÉ@ÉCÉãÇ©ÇÁÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇ÷ïœä∑
  908.    i    ì¸óÕǵÇΩÉeÉLÉXÉgÇÃï\é¶
  909.    x    ïœä∑Ç≥ÇÍÇΩÉeÉLÉXÉgÇÃï\é¶
  910.  
  911. EOF
  912.   }
  913.   return ;
  914. }
  915. #
  916. ######## The following subroutines is buildin-functions of SgmlForm ########
  917. # 
  918. sub Value {
  919.   unless ($#_ == 0) { print("\n Illegal number of arguments in Value ! -> $mapscript") ; return '' ; }
  920.   local($refatt) = @_ ;
  921.   local($val, $k, $v) ;
  922. # while (($k, $v) = each %tav) { print("\n $k $v") ; }
  923.   $val = $tav{$nest.$crefgi.'_'.$refatt} ;
  924.   return $val ;
  925. }
  926. #
  927. sub Refer {
  928.   unless ($#_ == 1) { print("\n Illegal number of arguments in Refer ! -> $mapscript") ; return '' ; }
  929.   local($refgi, $refatt) = @_ ;
  930.   local($refid, $val) ;
  931.   if (($refatt eq 'ID') || ($refatt eq 'REFID')) {
  932.     $refid = $tav{$nest.$crefgi.'_'.$refatt} ;
  933.     $val = $tid{$refgi.'_'.$refid} ;
  934.   }
  935.   else { print("\n Illegal use in Refer ! -> $mapscript") ; return '' ; }
  936.   return $val ;
  937. }
  938. sub Inhibit {
  939.   unless ($#_ == 0) { print("\n Illegal number of arguments in Inhibit ! -> $mapscript") ; return ; }
  940.   local($gi) = @_ ;
  941.   $inhibit = $gi ;
  942.   return ;
  943. }
  944. #
  945. sub Hook {
  946.   unless ($#_ == 0) { print("\n Illegal number of arguments in Hook ! -> $mapscript") ; return ; }
  947.   local($gi) = @_ ;
  948.   $hookGI = $gi ;
  949.   return ;
  950. }
  951. #
  952. sub Data {
  953.   unless ($#_ == 0) { print("\n Illegal number of arguments in Data ! -> $mapscript") ; return '' ; }
  954.   local($gi) = @_ ;
  955.   local($v) ;
  956.   $v = $thook{$gi} ;
  957.   $thook{$gi} = '' ;
  958.   return $v ;
  959. }
  960. #
  961. sub GraphicSize {
  962.   unless ($#_ == 1) { print("\n Illegal number of arguments in GraphicSize ! -> $mapscript") ; return '' ; }
  963.   local($grfile, $type) = @_ ;
  964.   local($r, $w, $h, @a, $pbuffer, $top, $left, $bottom, $right) ;
  965. #
  966.   if (($type eq 'ps') || ($type eq 'PS')) {
  967.     unless (open(EPS, "<$grfile")) { print("\n Can not open the EPS-file `$grfile' !") ; return '' ; }
  968.     while ($eps = <EPS>) {
  969.       chop($eps) ;
  970.       if (substr($eps, 0, 14) eq '%%BoundingBox:') {
  971.         $r = substr($eps, 15) ;
  972.         @a = split(/ /, $r) ;
  973.         close(EPS) ;
  974.         @a = ($a[2],$a[3]) ;
  975.         return @a ;
  976.       }
  977.     }
  978.   }
  979. #
  980.   if (($type eq 'pict') || ($type eq 'PICT')) {
  981.     unless (open(PIC, "<$grfile")) { print("  Can not open PICT-file `$grfile' !\n") ; return '' ; }
  982.     $pbuffer = ' ' x 514 ;
  983.     sysread(PIC, $pbuffer, 514) ;
  984.     sysread(PIC, $pbuffer, 2) ; $top = unpack("S", $pbuffer) ;
  985.     sysread(PIC, $pbuffer, 2) ; $left = unpack("S", $pbuffer) ;
  986.     sysread(PIC, $pbuffer, 2) ; $bottom = unpack("S", $pbuffer) ;
  987.     sysread(PIC, $pbuffer, 2) ; $right = unpack("S", $pbuffer) ;
  988.     close(PIC) ;
  989.     @a = ($right-$left, $bottom-$top) ;
  990.     return @a ;
  991.   }
  992.   print("\n Illegal use in GraphicSize ! -> $mapscript") ; return '' ;
  993. }
  994. #
  995. sub Convert {
  996.   unless ($#_ == 0) { print("\n Illegal number of arguments in Convert ! -> $mapscript") ; return '' ; }
  997.   local($s) = @_ ;
  998.   return &valconvert($s) ;
  999. }
  1000. #
  1001. sub Begin {
  1002.   unless ($#_ == 0) { print("\n Illegal number of arguments in Begin ! -> $mapscript") ; return ; }
  1003.   local($clistn) = @_ ;
  1004.   if ($tclist{$clistn} eq '') { $tclist{$clistn} = '0' ; }
  1005.   @clist = split(/,/, $tclist{$clistn}) ;
  1006.   push(@clist, '0') ;
  1007.   $list = join(',', @clist) ;
  1008.   $tclist{$clistn} = $list ;
  1009.   return ;
  1010. }
  1011. #
  1012. sub Level {
  1013.   unless ($#_ == 0) { print("\n Illegal number of arguments in Level ! -> $mapscript") ; return '' ; }
  1014.   local($clistn) = @_ ;
  1015.   local(@clist) ;
  1016.   @clist = split(/,/, $tclist{$clistn}) ;
  1017.   return $#clist ;
  1018. }
  1019. #
  1020. sub Nest {
  1021.   unless ($#_ == 0) { print("\n Illegal number of arguments in Nest ! -> $mapscript") ; return '' ; }
  1022.   local($clistn) = @_ ;
  1023.   local(@clist, $list) ;
  1024.   @clist = split(/,/, $tclist{$clistn}) ;
  1025.   shift(@clist) ;
  1026.   $list = join('.', @clist) ;
  1027.   return $list ;
  1028. }
  1029. #
  1030. sub Number {
  1031.   unless ($#_ == 0) { print("\n Illegal number of arguments in Number ! -> $mapscript") ; return '' ; }
  1032.   local($clistn) = @_ ;
  1033.   local(@clist) ;
  1034.   @clist = split(/,/, $tclist{$clistn}) ;
  1035.   return pop(@clist)  ;
  1036. }
  1037. #
  1038. sub Count {
  1039.   unless ($#_ == 0) { print("\n Illegal number of arguments in Count ! -> $mapscript") ; return '' ; }
  1040.   local($clistn) = @_ ;
  1041.   local(@clist, $c, $list) ;
  1042.   @clist = split(/,/, $tclist{$clistn}) ;
  1043.   $c = pop(@clist) ;
  1044.   $c ++ ;
  1045.   push(@clist, $c) ;
  1046.   $list = join(',', @clist) ;
  1047.   $tclist{$clistn} = $list ;
  1048.   return $c ;
  1049. }
  1050. #
  1051. sub End {
  1052.   unless ($#_ == 0) { print("\n Illegal number of arguments in End ! -> $mapscript") ; return ; }
  1053.   local($clistn) = @_ ;
  1054.   local(@clist, $list) ;
  1055.   @clist = split(/,/, $tclist{$clistn}) ;
  1056.   pop(@clist) ; 
  1057.   $list = join(',', @clist) ;
  1058.   $tclist{$clistn} = $list ;
  1059.   return ;
  1060. }
  1061. #
  1062. sub DeleteCr {
  1063.   unless ($#_ == 0) { print("\n Illegal number of arguments in DeleteCr ! -> $mapscript") ; return ; }
  1064.   local($onoff) = @_ ;
  1065.   $delcr = $onoff ;
  1066.   return ;
  1067. }
  1068. #
  1069. sub Replace {
  1070.   unless ($#_ == 0) { print("\n Illegal number of arguments in Replace ! -> $mapscript") ; return ; }
  1071.   local($onoff) = @_ ;
  1072.   $repstr = $onoff ;
  1073.   return ;
  1074. }
  1075. #
  1076. sub Escape {
  1077.   unless ($#_ == 0) { print("\n Illegal number of arguments in Escape ! -> $mapscript") ; return ; }
  1078.   local($onoff) = @_ ;
  1079.   $escstr = $onoff ;
  1080.   return ;
  1081. }
  1082. #
  1083. sub DefineEscape {
  1084.   unless ($#_ == 1) { print("\n Illegal number of arguments in DefineEscape ! -> $mapscript") ; return ; }
  1085.   local($data, $esc) = @_ ;
  1086.   if ($data eq "\\") { $data = "\x1d" ; }
  1087.   if ($data eq '^')  { $data = "\x1c" ; }
  1088.   if ($data eq '$')  { $data = "\x1b" ; }
  1089.   $datatable[$escx] = $data ;
  1090.   $esctable[$escx] = $esc ;
  1091.   $escx ++ ;
  1092.   return ;
  1093. }
  1094. #
  1095. sub DefineReplace {
  1096.   unless ($#_ == 1) { print("\n Illegal number of arguments in DefineReplace ! -> $mapscript") ; return ; }
  1097.   local($data, $rpl) = @_ ;
  1098.   $stable[$rplx] = $data ;
  1099.   $ttable[$rplx] = $rpl ;
  1100.   $rplx ++ ;
  1101.   return ;
  1102. }
  1103. #
  1104. sub Display {
  1105.   unless ($#_ == 0) { print("\n Illegal number of arguments in Display ! -> $mapscript") ; return ; }
  1106.   local($data) = @_ ;
  1107.   &lprint("\n ".$data, 0) ;
  1108.   return ;
  1109. }
  1110. #
  1111. #-------------- The following data is the online manual about SgmlForm ------------
  1112. # ?X Begining of Error Message, X(E or J) means the dispaly language
  1113. # !X Begining of Document, X(E or J) means the dispaly language
  1114. # !! End of ErrorMessage/Document
  1115. #
  1116. __END__
  1117. ?E
  1118.  SgmlForm.cfg defines the path to Perl-library and default values of environment-variables.
  1119.  Set SgmlForm.cfg into the same folder where SgmlForm.pl exists.
  1120.  You can set any value of environment variables except the display-language and the path of Perl library during the run-time.
  1121.  The format of SgmlForm.cfg is follow as :
  1122.  
  1123. -----------------------------------------------------------------------------------------------
  1124.   Format            Meaning                       Default Value
  1125. -----------------------------------------------------------------------------------------------
  1126.   PATH=string      Full path name to Perl-library   Not option
  1127.   LANGUAGE=string  Display-language                 E 'J' means Japanese. 'E' means English.
  1128.   LINES=number     Number of lines displayed        30
  1129.   COLUMNS=number   Number of columns displayed      70
  1130.   ESIS=string      File extension of source-file    esi
  1131.   MAP=string       File extension of map-info-file  MPM
  1132.   TARGET=string    File extension of target-file    pm
  1133.   CREATOR=string   File creator of target-file      ttxt
  1134. -----------------------------------------------------------------------------------------------
  1135. ?J
  1136.  ä¬ã´ïœêîÉtÉ@ÉCÉãÅgSgmlForm.cfgÅhÇÕPerlÉâÉCÉuÉâÉäÇ÷ÇÃÉpÉXÇΔä¬ã´ïœêîÇÃèâä˙ílÇíËã`Ç∑ÇÈÉtÉ@ÉCÉãÇ≈Ç∑ÅB
  1137.  ÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇÃï\é¶åæåÍÇΔPerlÉâÉCÉuÉâÉäÇ÷ÇÃÉpÉXà»äOÇÃä¬ã´ïœêîÇÃílÇÕé¿çséûDžLJïœçXÇ≈Ç´Ç‹Ç∑ÅB
  1138.  SgmlForm.cfgÇSgmlForm.plÇΔìØÇ∂ÉtÉHÉãÉ_Å[Ç…íuǢǃâ∫Ç≥Ç¢ÅB
  1139.  SgmlForm.cfgÇÃèëéÆÇÕéüÇÃÇΔÇ®ÇËÇ≈Ç∑ÅB
  1140. ---------------------------------------------------------------------------------------------------------
  1141.   èëéÆ                ï∂éöóÒñîÇÕêîéöóÒÇÃà”ñ°        è»ó™éûíl
  1142. ---------------------------------------------------------------------------------------------------------
  1143.   PATH=ï∂éöóÒ      PerlÉâÉCÉuÉâÉäÇ÷ÇÃÉpÉX            è»ó™ïsâ¬
  1144.   LANGUAGE=ï∂éö    ÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇÃï\é¶åæåÍ    E ì˙ñ{åÍÇÃèÍçáÇÕ'J'ÅCâpåÍÇÃèÍçáÇÕ'E'ÇéwíËǵNjÇ∑ÅB
  1145.   LINES=êîéöóÒ     ï\é¶çsêî                          30
  1146.   COLUMNS=êîéöóÒ   ï\é¶åÖêî                          70
  1147.   ESIS=ï∂éöóÒ      É\Å[ÉXÇÃÉtÉ@ÉCÉãägí£éq            esi
  1148.   MAP=ï∂éöóÒ       É}ÉbÉvèÓïÒÇÃÉtÉ@ÉCÉãägí£éq        MPM
  1149.   TARGET=ï∂éöóÒ    É^Å[ÉQÉbÉgÇÃÉtÉ@ÉCÉãägí£éq        pm
  1150.   CREATOR=ï∂éöóÒ   É^Å[ÉQÉbÉgÇÃÉtÉ@ÉCÉãÉNÉäÉGÅ[É^    ttxt
  1151. ---------------------------------------------------------------------------------------------------------
  1152. !!
  1153. !J
  1154. # SgmlFormDžǬǢǃ
  1155.  
  1156. 1 SgmlForm
  1157. * SgmlForm.gif
  1158.  
  1159. (1) SgmlFormÇÕÉtÉäÅ[ÉEÉFÉAÇ≈Ç∑ÅBSgmlFormÇÃîzïzÅEì]ç⁄ÅEñ|àƒÇÕé©óRÇ≈ÅCégópóøÇÕïsóvÇ≈Ç∑Ç™ÅCSgmlFormÇÃé¿çsǙLJÇΩÇÁÇ∑åãâ Ç…ǬǢǃÇÕï€èÿǵNjÇπÇÒÅB
  1160.  
  1161. (2) SgmlFormÇÕÅCSGMLÉpÅ[ÉUÅ[MacSgmlsÇÃèoóÕÉfÅ[É^ÅiESISå`éÆÅjÇì«ÇÒÇ≈ÅCÉ}ÉbÉvèÓïÒÇ…è]ǡǃÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÅiTeXÇ‚PageMakerǻǫÇÃÉeÉLÉXÉgÅjÇèoóÕǵNjÇ∑ÅB
  1162.  
  1163. (3) SgmlFormÇÕà¯Ç´êîǻǵÇ≈ãNìÆǵÅCǪÇÃëÄçÏÇÕì¡éÍÇ»ÉRÉ}ÉìÉhÇ≈çsǢNjÇ∑ÅB
  1164.  
  1165. (4) SgmlFormÇÕä›Å@òaçFÇ™äJî≠ǵNjǵÇΩÅBÇ®ãCÇ√Ç´ÇÃì_Ç™Ç≤ǥǢNjǵÇΩÇÁâ∫ãLÇ÷ÉÅÅ[ÉãÇÇ®ëóÇËâ∫Ç≥Ç¢ÅBSgmlFormÇñ|àƒÇ≥ÇÍÇΩèÍçáLJéQçlÇ‹Ç≈Ç…ÉÅÅ[ÉãÇÇ®ëóÇËâ∫Ç≥Ç¢ÅB
  1166.   NAG00251@niftyserve.or.jp
  1167.  
  1168. 2 SgmlFormÇÃèCê≥ãLò^
  1169.  
  1170. 2.1 ver.1.0Å`1.2
  1171.  
  1172.  åˆäJëOÇÃî≈Ç≈Ç∑ÅB
  1173.  
  1174. 2.2 ver.1.3 Åi96.8.28Åj
  1175.  
  1176.  ç≈èâÇÃåˆäJÇ≈ÇÃî≈Ç≈Ç∑ÅB
  1177.  
  1178. 2.3 ver.1.4 Åi96.10.16Åj
  1179.  
  1180.  écîOǻǙÇÁÅCDZÇÃî≈ÇÃÉ}ÉbÉvèÓïÒÇÕÅCëOÇÃî≈Ç≈çÏÇÁÇÍÇΩÉ}ÉbÉvèÓïÒÇΔå›ä∑ê´Ç™Ç»Ç≠Ç»ÇËNjǵÇΩÅBÇ≤íçà”â∫Ç≥Ç¢ÅB
  1181.  
  1182. (1) ê‡ñæï∂ÇÃàÍïîÇèCê≥ǵNjǵÇΩÅB
  1183.  
  1184. (2) É}ÉbÉvèÓïÒÇÕÉ\Å[ÉXÉtÉ@ÉCÉãÇÃï∂èëå^íËã`ÇÃÉtÉ@ÉCÉãñºÇ≈îFéØÇ∑ÇÈÇÊǧDžǵNjǵÇΩÅB
  1185.  
  1186. (3) SgmlFormÇ≈àµÇ§É^Å[ÉQÉbÉgÇΔǵǃTEXTÇí«â¡ÇµÇ‹ÇµÇΩÅB
  1187.  
  1188. (4) ëgçûÇ›ä÷êî&Value()ÇÃà¯Ç´êîÇÃå`éÆÇïœçXǵNjǵÇΩÅB
  1189.  
  1190. (5) íuä∑ï∂éöóÒÇ…Ç®ÇØÇÈëÆê´ílÇÃéQèΔÇÃå`éÆÇïœçXǵNjǵÇΩÅB
  1191.  
  1192. (6) äÙǬǩÇÃëgçûÇ›ä÷êîÇí«â¡ÇµÇ‹ÇµÇΩÅB
  1193.  
  1194. (7) äÙǬǩÇÃÉRÉ}ÉìÉhÇí«â¡ÇµÇ‹ÇµÇΩÅB
  1195.  
  1196. (8) ä¬ã´ïœêîÉtÉ@ÉCÉãÇ≈àµÇ§ïœêîÇí«â¡ÇµÇ‹ÇµÇΩÅB
  1197.  
  1198. (9) ÉwÉãÉvÉÅÉbÉZÅ[ÉWãyÇ—ÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇì˙ñ{åÍÅEâpåÍêÿÇËë÷ǶDžǵNjǵÇΩÅB
  1199.  
  1200. (10) ESISÉfÅ[É^Ç…â¸çsÅi\nÅjÇ™ä‹Ç‹ÇÍÇÈèÍçáÇ…ï™âÇ∑ÇÈÇÊǧDžǵNjǵÇΩÅBDZÇÍÇÕÉÅÉÇÉäÅ[ÇÃêflñÒÇê}ÇÈDZÇΔÇ…ÇÊǡǃïsë™ÇÃÉNÉâÉbÉVÉÖÇîÇØÇÈÇΩÇflÇ≈Ç∑ÅB
  1201.  
  1202. 3 SgmlFormÇ≈àµÇ§ÉtÉ@ÉCÉã
  1203.  
  1204. (1) SgmlFormÇÕéüÇÃägí£éqÇ≈ÉtÉ@ÉCÉãÇãÊï ÇµÇ‹Ç∑ÅB
  1205. ---------------------------------------------------------
  1206.   ÉtÉ@ÉCÉã           PageMaker  TeX   WWW    TEXT  ÇªÇÃëº
  1207. ---------------------------------------------------------
  1208.   É\Å[ÉXÉtÉ@ÉCÉã      .esi    .esi   .esi   .esi   .esi
  1209.   É}ÉbÉvèÓïÒ          .MPM    .MTX   .MWW   .MTT   îCà”
  1210.   É^Å[ÉQÉbÉgÉtÉ@ÉCÉã  .pm     .tex   .htm   .txt   îCà”
  1211.   ï∂èëå^íËã`          .DTD    .DTD   .DTD   .DTD   .DTD
  1212. ---------------------------------------------------------
  1213.  
  1214. (2) Ç±ÇÍÇÁÇÃÉtÉ@ÉCÉãÇÕìØÇ∂ÉtÉHÉãÉ_Å[ì‡Ç…Ç»ÇØÇÍnjǻÇËÇ‹ÇπÇÒÅB
  1215.  
  1216. (3) ó·Ç¶ÇŒÅCÉtÉ@ÉCÉãñºÇÕéüÇÃÇÊǧDžópǢNjÇ∑ÅB
  1217.  
  1218. (3.1) ï∂èëå^íËã`ÅgTEXTBOOK.DTDÅhÇ…äÓÇ√Ç≠ï∂èëé¿åªílÇÅgReadMeÅhÇΔǵNjÇ∑ÅBMacSgmlsÇÕÅCDZÇÃìÒǬÇì«ÇÒÇ≈ç\ï∂âêÕǵÅCESISå`éÆÇÃÉtÉ@ÉCÉãÅgReadMe.esiÅhÇèoóÕǵNjÇ∑ÅB
  1219.  
  1220. (3.2) ÅgReadMe.esiÅhÇPageMakerÇ÷É}ÉbÉsÉìÉOÇ∑ÇÈèÍçáÇÕÅCÉ}ÉbÉvèÓïÒÅgTEXTBOOK.MPMÅhÇ™ïKóvÇ≈Ç∑ÅBSgmlFormÇÕÅCÉ\Å[ÉXÉtÉ@ÉCÉãÅgReadMe.esiÅhÇì«ÇÒÇ≈ÅgTEXTBOOK.MPMÅhÇéQèΔǵǻǙÇÁÅCÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÅgReadMe.pmÅhÇèoóÕǵNjÇ∑ÅBǪǵǃÅCDZÇÃÉfÅ[É^ÇPageMakerÇ≈ì«Ç›Ç‹Ç∑ÅB
  1221.  
  1222. (3.3) ÅgREADME.esiÅhÇTeXÇ÷É}ÉbÉsÉìÉOÇ∑ÇÈèÍçáÇÕÅCÉ}ÉbÉvèÓïÒÅgTEXTBOOK.MTXÅhÇ™ïKóvÇ≈Ç∑ÅBSgmlFormÇÕÅCÉ\Å[ÉXÉtÉ@ÉCÉãÅgREADME.esiÅhÇì«ÇÒÇ≈ÅgTEXTBOOK.MTXÅhÇéQèΔǵǻǙÇÁÅCÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÅgREADME.texÅhÇèoóÕǵNjÇ∑ÅBǪǵǃÅCDZÇÃÉfÅ[É^ÇTeXÇ≈ì«Ç›Ç‹Ç∑ÅB
  1223.  
  1224. 4 SgmlFormÇÃëÄçÏÉRÉ}ÉìÉh
  1225.  
  1226. (1) ÉRÉ}ÉìÉhçsÇÃå`éÆ
  1227.  
  1228.   f{d}[s][m][t(c)] > ÉRÉ}ÉìÉh
  1229.  
  1230.  Ç±Ç±Ç≈ÅC
  1231. --------------------------------------
  1232.   ãLçÜ            à”ñ°
  1233. --------------------------------------
  1234.   f    É\Å[ÉXÉtÉ@ÉCÉãÇÃñºëO
  1235.   d    É\Å[ÉXÉtÉ@ÉCÉãÇÃï∂èëå^íËã`
  1236.   s    É\Å[ÉXÉtÉ@ÉCÉãÇÃägí£éq
  1237.   m    É}ÉbÉvèÓïÒÇÃägí£éq
  1238.   t    É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇÃägí£éq
  1239.   c    èoóÕÉtÉ@ÉCÉãÇÃÉNÉäÉGÅ[É^
  1240. --------------------------------------
  1241.  
  1242. (2) ÉRÉ}ÉìÉh
  1243. -----------------------------------------------------
  1244.   ãLçÜ    éwé¶ì‡óe
  1245. -----------------------------------------------------
  1246.   q       èàóùÇÃèIóπ
  1247.   l       ï\é¶çsêîÇÃê›íË
  1248.   c       ï\é¶åÖêîÇÃê›íË
  1249.   ?       ÉwÉãÉvÉÅÉbÉZÅ[ÉWÇÃï\é¶
  1250.   d       SgmlFormÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇÃï\é¶
  1251.   o       SgmlFormÉIÉìÉâÉCÉìÉ}ÉjÉÖÉAÉãÇÃï€ë∂èoóÕ
  1252.   v       Ç±ÇÃSgmlFormî≈ÇÃï\é¶
  1253.   r       ÉeÉLÉXÉgÉtÉ@ÉCÉãÇÃï\é¶
  1254.   t       ï∂èëå^íËã`ÇÃï\é¶
  1255.   s       É\Å[ÉXÉtÉ@ÉCÉãÅiESISå`éÆÅjÇÃëIë
  1256.   m       É}ÉbÉsÉìÉOÇÃëIë
  1257.   a       É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇÃÉNÉäÉGÅ[É^ÇÃëIë
  1258.   f       É\Å[ÉXÉtÉ@ÉCÉãÇ©ÇÁÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇ÷ÇÃïœä∑
  1259.   i       ì¸óÕǵÇΩÉeÉLÉXÉgÇÃï\é¶
  1260.   x       ïœä∑Ç≥ÇÍÇΩÉeÉLÉXÉgÇÃï\é¶
  1261.   h       ÉeÉLÉXÉgå`éÆÇ©ÇÁHTMLå`éÆÇ÷ÇÃïœä∑
  1262. -----------------------------------------------------
  1263.  
  1264. 5 SgmlFormÇÃïœä∑ÇÃédëgÇ›
  1265.  
  1266. (1) É\Å[ÉXÉtÉ@ÉCÉãÅiESISå`éÆÅjÇì¸óÕǵNjÇ∑ÅB
  1267.  
  1268. (1.1) ëÆê´ñºÇ™ÅgIDÅhÇÃèÍçáÇÕÅCêÈåæílÇ™éØï éqílÅgIDÅhÇΔǛǻÇ≥ÇÍÅCǪÇÃílÇ…àÍà”Ç»î‘çÜÇ™äÑÇËìñǃÇÁÇÍÇ‹Ç∑ÅB
  1269.  
  1270. (1.2) ëÆê´ñºÇ™ÅgREFIDÅhÇÃèÍçáÇÕÅCêÈåæílÇ™éØï éqéQèΔílÅgIDREFÅhÇΔǛǻÇ≥ÇÍÅCè„ãLÇÃílÇ…ëŒâûÇ√ÇØÇÁÇÍÇ‹Ç∑ÅB
  1271.  
  1272. (2) É\Å[ÉXÉtÉ@ÉCÉãÇÃï∂èëå^íËã`Ç©ÇÁÅCǪÇÃÉ}ÉbÉvèÓïÒÇíTǵNjÇ∑ÅB
  1273.  
  1274. (3) íuä∑èàóùÇà¯Ç´ãNDZÇ∑SGMLÉ^ÉOÇ≈džÇÍÇŒÅCÉ}ÉbÉvèÓïÒÇéQèΔǵNjÇ∑ÅB
  1275.  
  1276. (3.1) É}ÉbÉvèÓïÒÇ…PerlÇÃÉXÉNÉäÉvÉgǙdžÇÍÇŒÅCǪÇÍÇé¿çsǵNjÇ∑ÅB
  1277.  
  1278. (3.2) É}ÉbÉvèÓïÒÇ…íuä∑ï∂éöóÒǙdžÇÍÇŒÅCǪÇÃï∂éöóÒÇ…íuÇ´ä∑ǶÅCÉ^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇ÷èoóÕǵNjÇ∑ÅB
  1279.  
  1280. (3.3) É}ÉbÉvèÓïÒÇ…íuä∑ï∂éöóÒǙǻÇØÇÍÇŒâΩLJǵNjÇπÇÒÅB
  1281.  
  1282. (4) ÉfÅ[É^ÇÃèÍçáÇÕÅCǪÇÃÇ‹Ç‹É^Å[ÉQÉbÉgÉtÉ@ÉCÉãÇ÷èoóÕǵNjÇ∑ÅB
  1283.  
  1284. (4.1) ÉfÅ[É^Ç…ä‹Ç‹ÇÍÇÈÅg\nÅhÇÕâ¸çsïÑçÜÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1285.  
  1286. (4.2) ÉfÅ[É^Ç…ä‹Ç‹ÇÍÇÈ2å¬ÇÃÅg\ÅhÇÕ1å¬ÇÃÅg\ÅhÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1287.  
  1288. (4.3) ëgçûÇ›ä÷êî&DefineEscape()ÇΔ&Escape()Ç≈ÉGÉXÉPÅ[Évï∂éöóÒÇ÷ÇÃïœä∑Çéwé¶Ç≈Ç´Ç‹Ç∑ÅB
  1289.  
  1290. (4.4) ëgçûÇ›ä÷êî&DefineReplace()ÇΔ&Replace()Ç≈ï ÇÃï∂éöóÒÇ÷ÇÃïœä∑Çéwé¶Ç≈Ç´Ç‹Ç∑ÅB
  1291.  
  1292. (4.5) ëgçûÇ›ä÷êî&Inhibit()Ç≈ǪÇÃèoóÕÇó}êßÇ∑ÇÈDZÇΔÇ™Ç≈Ç´Ç‹Ç∑ÅB
  1293.  
  1294. (4.6) ëgçûÇ›ä÷êî&DeleteCr()Ç≈â¸çsïÑçÜÇÃèoóÕÇó}êßÇ∑ÇÈDZÇΔÇ™Ç≈Ç´Ç‹Ç∑ÅB
  1295.  
  1296. 6 É}ÉbÉvèÓïÒ
  1297.  
  1298. (1) SgmlFormÇÃÉ}ÉbÉvèÓïÒÇÕï°êîÇÃçsÇ≈ï\ÇÌǵNjÇ∑ÅBÉ}ÉbÉvèÓïÒÇÃèëéÆÇÕéüÇÃÇÊǧÇ≈Ç∑ÅBäeçsÇÃêÊì™ï∂éöÇ≈èëéÆÇ™ï™Ç©ÇÍÇ‹Ç∑ÅBDZDZÇ≈ÅCÅ®ÇÕÉ^ÉuïÑçÜÇï\ÇÌǵNjÇ∑ÅB
  1299.  
  1300.   SGMLÉ^ÉOÅ®èåèéÆ
  1301.   ~Å®ÉXÉNÉäÉvÉg
  1302.   ~Å® ÅE
  1303.   ~Å® ÅE
  1304.   Å®íuä∑ï∂éöóÒ
  1305.   Å®  ÅE
  1306.   Å®  ÅE
  1307.   Å®  ÅE
  1308.  
  1309.   SGMLÉ^ÉOÅ®èåèéÆ
  1310.   ~Å®ÉXÉNÉäÉvÉg
  1311.   ~Å® ÅE
  1312.   ~Å® ÅE
  1313.   Å®íuä∑ï∂éöóÒ
  1314.   Å®  ÅE
  1315.   Å®  ÅE
  1316.   Å®  ÅE
  1317.  
  1318. (2) äeçsÇÃí∑Ç≥ÇÕîCà”Ç≈Ç∑ÅB
  1319.  
  1320. (3) SGMLÉ^ÉOÇÕÉ}ÉbÉvèÓïÒëSëÃÇ≈àÍà”ÇΔǵNjÇ∑ÅBìÒǬà»è„ÇÃSGMLÉ^ÉOÇéwíËÇ∑ÇÈèÍçáÇÕÅCèåèéÆÇÃílǙǪÇÍÇÁÇÃëgÇ›çáÇÌÇπÇÃíÜÇ≈àÍà”Ç…Ç»ÇÈÇÊǧDžǵNjÇ∑ÅB
  1321.  
  1322. 6.1 íçéfl
  1323.  
  1324. (1) èëéÆ
  1325.  
  1326.   !íçéfl
  1327.  
  1328. (2) ã@î\
  1329.  
  1330. (2.1) ÇªÇÃçsÇ™íçéflÇ≈džÇÈDZÇΔÇï\ÇÌǵNjÇ∑ÅB
  1331.  
  1332. (2.2) íçéflÇÕǫDZDždžǡǃLJǩNjǢNjÇπÇÒÅB
  1333.  
  1334. (3) ó·
  1335.  
  1336.   ! Ç±ÇÍÇÕíçéflçsÇ≈Ç∑ÅB
  1337.  
  1338. 6.2 SGMLÉ^ÉOÇΔèåèéÆ
  1339.  
  1340. (1) èëéÆ
  1341.  
  1342.   (ã§í éØï éqÅ®èåèéÆ
  1343.   )ã§í éØï éqÅ®èåèéÆ
  1344.   CÅ®èåèéÆ
  1345.  
  1346. (2) ã@î\
  1347.  
  1348. (2.1) ÇªÇÃçsÇÃÉ^ÉuÇÃç∂ë§Ç™íuä∑èàóùÇà¯Ç´ãNDZÇ∑SGMLÉ^ÉOÇï\ÇÌǵNjÇ∑ÅB
  1349. -------------------------------------------
  1350.   èëéÆ          SGMLÉ^ÉO
  1351. -------------------------------------------
  1352.   (ã§í éØï éq  ã§í éØï éqÇÃäJénÉ^ÉO
  1353.   )ã§í éØï éq  ã§í éØï éqÇÃèIóπÉ^ÉO
  1354.   C            SGMLìKçáï∂èëÇ≈džÇÈDZÇΔÇé¶Ç∑
  1355. -------------------------------------------
  1356.  
  1357. (2.2) ÇªÇÃçsÇÃÉ^ÉuÇÃâEë§Ç™èåèéÆÇï\ÇÌǵNjÇ∑ÅBèåèéÆÇÕPerlÇÃèåèéÆÇΔǵÅCǪÇÃï‘ãpílÇ™ê^ÇÃèÍçáÇ…ÇÃÇ›íuä∑èàóùÇ™à¯Ç´ãNDZÇ≥ÇÍÇ‹Ç∑ÅBèåèéÆÇéwíËǵǻǢèÍçáÇÕÅCǪÇÃSGMLÉ^ÉOÇÃèoåªéûÇ…èÌÇ…íuä∑èàóùÇ™à¯Ç´ãNDZÇ≥ÇÍÇ‹Ç∑ÅB
  1358.  
  1359. (3) ó·
  1360.  
  1361.   (LIÅ®$xlist
  1362.  
  1363.  Åg(LIÅhÇ™ì¸óÕÇ≥ÇÍÇΩéûì_Ç≈ïœêîÅg$xlistÅhÇÃílÇ™Åg1ÅhÇ≈džÇÍÇŒÅCíuä∑èàóùÇ™à¯Ç´ãNDZÇ≥ÇÍÇ‹Ç∑ÅB
  1364.  
  1365. 6.3 íuä∑ï∂éöóÒ
  1366.  
  1367. (1) èëéÆ
  1368.  
  1369.  Å®íuä∑ï∂éöóÒ
  1370.  
  1371. (2) ã@î\
  1372.  
  1373. (2.1) ÇªÇÃçsÇÃÉ^ÉuÇÃâEë§Ç™SGMLÉ^ÉOÇ…ëŒÇ∑ÇÈíuä∑ï∂éöóÒÇ≈džÇÈDZÇΔÇï\ÇÌǵNjÇ∑ÅB
  1374.  
  1375. (2.2) íuä∑ï∂éöóÒÇÕ1çsà»è„éwíËÇ≈Ç´Ç‹Ç∑ÅB
  1376.  
  1377. (2.3) íuä∑ï∂éöóÒÇÕéüÇÃï]âøÇ™Ç≥ÇÍÇΩå„ÅCèoóÕÇ≥ÇÍÇ‹Ç∑ÅB
  1378.  
  1379. (2.3.1) íuä∑ï∂éöóÒÇ…ä‹Ç‹ÇÍÇΩÅg\nÅhÇÕâ¸çsïÑçÜÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1380.  
  1381. (2.3.2) íuä∑ï∂éöóÒÇ…ä‹Ç‹ÇÍÇΩÅg~ëÆê´ñº~ÅhÇÕÅCåªéûì_ÇÃã§í éØï éqÇÃëÆê´ñºÇ…ëŒâûÇ∑ÇÈílÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅBëgçûÇ›ä÷êî&Value()Ç≈LJÅCǪÇÃílÇéQèΔÇ≈Ç´Ç‹Ç∑ÅB
  1382.  
  1383. (2.3.3) íuä∑ï∂éöóÒÇ…ä‹Ç‹ÇÍÇΩÅg~#ã§í éØï éq_ëÆê´ñº~ÅhÇÕÅCǪÇÍǺÇÍã§í éØï éqÇÃëÆê´ñºÅgIDÅhãyÇ—ÅgREFIDÅhÇÃílÇ…ïtÇØÇÁÇÍÇΩàÍà”Ç»î‘çÜÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅBDZÇÃã§í éØï éqÇÕÅCåªç›ÇÃã§í éØï éqÇ≈ÇÕÇ»Ç≠ÅCǪÇÃéØï éqílÇåàíËǵǃǢÇÈLJÇÃÇ≈Ç»ÇØÇÍnjǻÇËÇ‹ÇπÇÒÅBëgçûÇ›ä÷êî&Refer()Ç≈LJÅCǪÇÃî‘çÜÇéQèΔÇ≈Ç´Ç‹Ç∑ÅB
  1384.  
  1385. (2.3.4) íuä∑ï∂éöóÒÇ…ä‹Ç‹ÇÍÇΩÅg~$ïœêîñº~ÅhÇÕǪÇÃïœêîñºÇ…ëŒâûÇ∑ÇÈPerlïœêîÇÃílÇ…ïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1386.  
  1387. (3) ó·
  1388.  
  1389. (3.1) ëÆê´ÅgIDÅhÇÃílÇΔǪÇÃî‘çÜïtÇØ
  1390.  
  1391.  éüÇÃÇÊǧǻESISÉfÅ[É^Ç™ì¸óÕÇ≥ÇÍÇΩéûÅCã§í éØï éqÅgFNÅhÇÃëÆê´ÅgIDÅhÇÃílÅgHYPERCARDÅhÇ…Åg123ÅhÇΔǢǧî‘çÜÇ™äÑÇËìñǃÇÁÇÍÇΩÇΔǵNjÇ∑ÅB
  1392.  
  1393.   AID TOKEN HYPERCARD
  1394.   (FN
  1395.   -HyperCardÇÕÅCApple Computeré–ÇÃè§ïWÇ≈džÇÈÅB
  1396.  
  1397.  Åg(FNÅhÇ™ì¸óÕÇ≥ÇÍÇΩéûì_Ç≈ÅCéüÇÃÉ}ÉbÉvèÓïÒÇ™ì≠Ç¢ÇΩÇΔÇ∑ÇÈÇΔÅC
  1398.  
  1399.   (FN
  1400.   Å®~ID~=~#FN_ID~
  1401.  
  1402.  éüÇÃÇÊǧǻï∂éöóÒÇ™èoóÕÇ≥ÇÍÇ‹Ç∑ÅB
  1403.  
  1404.   HYPERCARD=123
  1405.  
  1406. (3.2) ëÆê´ÅgIDÅhÇÃéQèΔ
  1407.  
  1408.  éüÇÃÇÊǧǻESISÉfÅ[É^Ç™ì¸óÕÇ≥ÇÍÇΩéûÅCã§í éØï éqÅgFNÅhÇÃëÆê´ÅgIDÅhÇÃílÅgHYPERCARDÅhÇ…Åg123ÅhÇΔǢǧî‘çÜÇ™äÑÇËìñǃÇÁÇÍÇΩÇΔǵNjÇ∑ÅB
  1409.  
  1410.   -DicSGMLÇÕÅCHyperCard
  1411.   AREFID TOKEN HYPERCARD
  1412.   (FNREF
  1413.   )FNREF
  1414.   -ÇÃÉXÉ^ÉbÉNÉEÉFÉAÇ≈džÇÈÅB
  1415.  
  1416.  Åg(FNREFÅhÇ™ì¸óÕÇ≥ÇÍÇΩéûì_Ç≈ÅCéüÇÃÉ}ÉbÉvèÓïÒÇ™ì≠Ç¢ÇΩÇΔÇ∑ÇÈÇΔÅC
  1417.  
  1418.   (FNREF
  1419.   Å®~REFID~=~#FN_REFID~
  1420.  
  1421.  éüÇÃÇÊǧǻï∂éöóÒÇ™èoóÕÇ≥ÇÍÇ‹Ç∑ÅB
  1422.  
  1423.   HYPERCARD=123
  1424.  
  1425.  Ç±Ç±Ç≈ÅCíuä∑ï∂éöóÒÇÃó·Ç™Åg~#FNREF_REFID~ÅhÇ≈ÇÕǻǢDZÇΔÇ…íçà”ǵǃâ∫Ç≥Ç¢ÅBÇ»Ç∫Ç»ÇÁÅCéØï éqÇåàíËǵÇΩã§í éØï éqÇÕÅgFNREFÅhÇ≈Ç»Ç≠ÅCÅgFNÅhÇæÇ©ÇÁÇ≈Ç∑ÅB
  1426.  
  1427.  Ç±Ç±Ç≈ÇÃéQèΔÇÃédëgÇ›ÇÕéüÇÃÇÊǧDžǻÇËÇ‹Ç∑ÅBÅg~#FN_REFID~ÅhÇ…ÇÊǡǃåªç›ÇÃã§í éØï éqÅgFNREFÅhÇÃëÆê´ÅgREFIDÅhÇÃílÅgHYPERCARDÅhÇ™éQèΔÇ≥ÇÍÇ‹Ç∑ÅBéüÇ…ã§í éØï éqÅgFNÅhÇÃëÆê´ÅgIDÅhÇÃílÅgHYPERCARDÅhÇ…äÑÇËìñǃÇÁÇÍÇΩílÅg123ÅhÇ™éQèΔÇ≥ÇÍÇ‹Ç∑ÅB
  1428.  
  1429. (3.3) ëÆê´ÅgIDÅhÇÃílÇ™è»ó™ÅiIMPLIEDÅjÇ≥ÇÍǃǢÇÈèÍçá
  1430.  
  1431.  éüÇÃÇÊǧǻESISÉfÅ[É^Ç™ì¸óÕÇ≥ÇÍÇΩéûÅC
  1432.   AID IMPLIED
  1433.   (H1
  1434.   (H1T
  1435.   -MacSgmls
  1436.  
  1437.  Åg(H1ÅhÇ™ì¸óÕÇ≥ÇÍÇΩéûì_Ç≈ÅCéüÇÃÉ}ÉbÉvèÓïÒÇ™ì≠Ç¢ÇΩÇΔÇ∑ÇÈÇΔÅC
  1438.  
  1439.   (H1
  1440.   Å®~ID~=~#H1_ID~
  1441.  
  1442.  éüÇÃÇÊǧǻï∂éöóÒÇ™èoóÕÇ≥ÇÍÇ‹Ç∑ÅBǬNjÇËÅCÅg~ID~ÅhÇΔÅg~#H1_ID~ÅhÇÕÅCãÛï∂éöÅgÅhÇ…Ç»ÇËÇ‹Ç∑ÅB
  1443.  
  1444.   =
  1445.  
  1446. 6.4 ÉXÉNÉäÉvÉg
  1447.  
  1448. (1) èëéÆ
  1449.  
  1450.  ~Å®ÉXÉNÉäÉvÉg
  1451.  
  1452. (2) ã@î\
  1453.  
  1454. (2.1) ÇªÇÃçsÇÃÉ^ÉuÇÃâEë§Ç™SGMLÉ^ÉOÇ…ëŒÇ∑ÇÈíuä∑èàóùÇçsǧëOÇ…é¿çsÇ∑Ç◊Ç´PerlÇÃÉXÉNÉäÉvÉgÇï\ÇÌǵNjÇ∑ÅB
  1455.  
  1456. (2.2) 1çsíPà Ç…é¿çsǵNjÇ∑ÇÃÇ≈ÅCêßå‰ç\ë¢ÇÕçsÇï™ÇØÇÈDZÇΔÇÕÇ≈Ç´Ç‹ÇπÇÒÅB
  1457.  
  1458. (2.3) ÉXÉNÉäÉvÉgÇ≈ópÇ¢ÇÈïœêîñºÇÕÅg$xÅhÇ©ÇÁénÇflǃâ∫Ç≥Ç¢ÅBDZÇÍÇÕSgmlFormñ{ëÃÇÃïœêîñºÇΔèdï°ÇµÇ»Ç¢ÇÊǧDžÇ∑ÇÈÇΩÇflÇ≈Ç∑ÅB
  1459.  
  1460. (2.4) óòópâ¬î\Ç»ëgçûÇ›ä÷êîÇÕéüÇÃÇΔÇ®ÇËÇ≈Ç∑ÅB
  1461.  
  1462. 7 óòópâ¬î\Ç»ëgçûÇ›ä÷êî
  1463.  
  1464. 7.1 ëÆê´ñºÇ…ó^ǶÇÁÇÍÇΩílñîÇÕî‘çÜÇÃéÊìæ
  1465.  
  1466. (1) èëéÆ
  1467.  
  1468.   &Value(ëÆê´ñº)              åªéûì_ÇÃã§í éØï éqÇÃëÆê´ñºÇ…ó^ǶÇÁÇÍÇΩílÇï‘ãpǵNjÇ∑ÅB
  1469.   &Refer(ã§í éØï éq, ëÆê´ñº)  ã§í éØï éqÇÃëÆê´ñºÇ…ó^ǶÇÁÇÍÇΩílÇ…äÑÇËìñǃÇÁÇÍÇΩî‘çÜÇï‘ãpǵNjÇ∑ÅB
  1470.  
  1471. (2) ã@î\
  1472.  
  1473. (2.1) &Value()ÇÕÅg~ëÆê´ñº~ÅhÇΔìØÇ∂ÇÊǧDžì≠Ç´Ç‹Ç∑ÅB&Refer()ÇÕÅg~#ã§í éØï éq_ëÆê´ñº~ÅhÇΔìØÇ∂ÇÊǧDžì≠Ç´Ç‹Ç∑ÅBè]ǡǃÅC&Refer()Ç…Ç®ÇØÇÈëÆê´ñºÇÕÅCÅgIDÅhñîÇÕÅgREFIDÅhÇ≈Ç»ÇØÇÍnjǻÇËÇ‹ÇπÇÒÅB
  1474.  
  1475. (2.2) ëÆê´ñºÇ…ó^ǶÇÁÇÍÇΩílǙǻǢÅiIMPLIEDÅjèÍçáÇÕÅCDZÇÍÇÁÇÃëgçûÇ›ä÷êîÇÕñ¢íËã`ílÇï‘ãpǵNjÇ∑ÅB
  1476.  
  1477. (2.3) ESISÉfÅ[É^Ç≈ÇÕëÆê´ÇÕäJénÉ^ÉOÇÃíºëOÇ…èoåªÇµÇ‹Ç∑Ç™ÅCDZÇÍÇÁÇÃëgçûÇ›ä÷êîÇÕäJénÉ^ÉOÅCèIóπÉ^ÉOÇÃÇ¢Ç∏ÇÍÇ©Ç≈éQèΔǵǃLJǩNjǢNjÇπÇÒÅB
  1478.  
  1479. (2.4) ESISÉfÅ[É^è„Ç≈SGMLÉ^ÉOÇ™ì¸ÇÍéqç\ë¢Ç…ǻǡǃǢÇÈèÍçáÅCDZÇÍÇÁÇÃëgçûÇ›ä÷êîÇÕèIóπÉ^ÉOÇ…ëŒâûÇ∑ÇÈäJénÉ^ÉOÇÃëÆê´ÇéQèΔǵNjÇ∑ÅB
  1480.  
  1481. (3) ó·
  1482.  
  1483.   (FIG
  1484.   ~Å®$xfigid = &Value('ID') ;
  1485.  
  1486.  Ç±ÇÃÉXÉNÉäÉvÉgÇÕåªéûì_ÇÃã§í éØï éqÅgFIGÅhÇÃëÆê´ñºÅgIDÅhÇÃílÇDZÇÍà»ç~ÇÃÉ^ÉOÇ≈éQèΔÇ∑ÇÈÇΩÇflÇ…ïœêîÅg$xfigidÅhÇ÷ë„ì¸ÇµÇƒÇ¢Ç‹Ç∑ÅB
  1487.  
  1488. 7.2 íºë±ÇÃã§í éØï éqÇ…ëŒâûÇ∑ÇÈÉfÅ[É^ÇÃälìæÇÃéwé¶ÇΔÉfÅ[É^ÇÃéÊìæ
  1489.  
  1490. (1) èëéÆ
  1491.  
  1492.   &Hook(ã§í éØï éq)         íºë±ÇÃã§í éØï éqÇ…ëŒâûÇ∑ÇÈÉfÅ[É^ÇälìæÇéwé¶ÇµÇ‹Ç∑ÅB
  1493.   &Data(ã§í éØï éq)         &Hook()Ç™älìæǵÇΩÉfÅ[É^Çï‘ãpǵNjÇ∑ÅB
  1494.  
  1495. (2) ã@î\
  1496.  
  1497. (2.1) &Data()ÇΔ&Hook()ÇÃã§í éØï éqÇÕìØÇ∂LJÇÃÇéwíËǵNjÇ∑ÅB
  1498.  
  1499. (2.2) Ç±ÇÃÉfÅ[É^ÇÕàÍíUéQèΔÇ∑ÇÈÇΔè¡ãéÇ≥ÇÍÇ‹Ç∑ÅB
  1500.  
  1501. (3) ó·
  1502.  
  1503.   (TLINE
  1504.   ~Å®&Hook('TLINE') ;
  1505.     .
  1506.     .
  1507.  
  1508.   (ǪÇÃëº
  1509.   ~Å®$xtline = &Data('TLINE') ;
  1510.  
  1511.  TLINEÇÃäJénÉ^ÉODžǮǢǃÅC&Hook()Ç…ÇÊÇÈTLINEÉ^ÉOÇÃÉfÅ[É^älìæÇéwé¶ÇµÇ‹Ç∑ÅBTLINEÉ^ÉOÇÃÉfÅ[É^Ç™ì¸óÕÇ≥ÇÍÇΩéûì_Ç≈älìæÇ≥ÇÍÇ‹Ç∑ÅBï ÇÃÉ^ÉODžǮǢǃÅC&Data()Ç≈ǪÇÃÉfÅ[É^ÇéQèΔǵÅCïœêî$xtlineÇ÷ë„ì¸ÇµÇ‹Ç∑ÅBDZÇÃë„ì¸Ç™çsÇÌÇÍÇΩå„ÅCǪÇÃÉfÅ[É^ÇÕè¡ãéÇ≥ÇÍÇ‹Ç∑ÅB
  1512.  
  1513. 7.3 ã§í éØï éqÇ…ëŒâûÇ∑ÇÈíºë±ÇÃÉfÅ[É^ÇÃèoóÕó}êß
  1514.  
  1515. (1) èëéÆ
  1516.  
  1517.   &Inhibit(ã§í éØï éq)
  1518.  
  1519. (2) ã@î\
  1520.  
  1521. (2.1) ã§í éØï éqÇ…ëŒâûÇ∑ÇÈíºë±ÇÃÉfÅ[É^ÇÃèoóÕÇó}êßǵNjÇ∑ÅB
  1522.  
  1523. (2.2) Ç±ÇÃï‘ãpílÇÕdžÇËÇ‹ÇπÇÒÅB
  1524.  
  1525. 7.4 íuä∑ï∂éöóÒÇÃéÊìæ
  1526.  
  1527. (1) èëéÆ
  1528.  
  1529.   &Convert(íuä∑ï∂éöóÒ)
  1530.  
  1531. (2) ã@î\
  1532.  
  1533. (2.1) Ç±ÇÃï‘ãpílÇÕÅCíuä∑ï∂éöóÒÇï]âøǵÇΩåãâ Ç≈Ç∑ÅB
  1534.  
  1535. 7.5 ï∂éöóÒïœä∑ÇÃéwé¶
  1536.  
  1537. (1) èëéÆ
  1538.  
  1539.   &DefineReplace(ÉfÅ[É^ï∂éöóÒ, íuä∑ÉfÅ[É^ï∂éöóÒ)  ï ÇÃÉfÅ[É^ï∂éöóÒÇ÷ïœä∑Ç∑ÇÈï∂éöóÒÇíËã`ǵNjÇ∑ÅB
  1540.   &DefineEscape(ÉfÅ[É^ï∂éö, ÉGÉXÉPÅ[Évï∂éöóÒ)     ÉGÉXÉPÅ[Évï∂éöóÒÇ…ïœä∑Ç∑ÇÈï∂éöÇíËã`ǵNjÇ∑ÅB
  1541.   &Replace(ÉXÉCÉbÉ`)                              ï ÇÃÉfÅ[É^ï∂éöóÒÇ÷ïœä∑Ç∑ÇÈÅiÉXÉCÉbÉ`Ç™Åg1ÅhÅjÇ©ÅCïœä∑ǵǻǢÅiÉXÉCÉbÉ`Ç™Åg0ÅhÅjÇ©Çéwé¶ÇµÇ‹Ç∑ÅB
  1542.   &Escape(ÉXÉCÉbÉ`)                               ÉGÉXÉPÅ[Évï∂éöóÒÇ…ïœä∑Ç∑ÇÈÅiÉXÉCÉbÉ`Ç™Åg1ÅhÅjÇ©ÅCïœä∑ǵǻǢÅiÉXÉCÉbÉ`Ç™Åg0ÅhÅjÇ©Çéwé¶ÇµÇ‹Ç∑ÅB
  1543.   &DeleteCr(ÉXÉCÉbÉ`)                             â¸çsïÑçÜÅi\nÅjÇÇ∑Ç◊ǃçÌèúÇ∑ÇÈÅiÉXÉCÉbÉ`Ç™Åg1ÅhÅjÇ©ÅCçÌèúǵǻǢÅiÉXÉCÉbÉ`Ç™Åg0ÅhÅjÇ©Çéwé¶ÇµÇ‹Ç∑ÅB
  1544.  
  1545. (2) ã@î\
  1546.  
  1547. (2.1) Ç±ÇÍÇÁÇÃëgçûÇ›ä÷êîÇÕÅCÉfÅ[É^ÇÃèoóÕéûÇ…ÉfÅ[É^Ç…ä‹Ç‹ÇÍÇÈï∂éöóÒÇï ÇÃï∂éöóÒÇ÷íuä∑Ç∑ÇÈDZÇΔÇéwé¶ÇµÇ‹Ç∑ÅB
  1548.  
  1549. (2.2) ÉfÅ[É^èoóÕéûÇÃèàóùÇÕÅC8êiêîï\ãLÇÃïœä∑ÅC&DeleteCr()Ç≈éwé¶ÇµÇΩâ¸çsïÑçÜÅi\nÅjÇÃçÌèúÅC&DefineEscape()ÇΔ&Escape()Ç≈éwíËǵÇΩíuä∑ÅC&DefineReplace()ÇΔ&Replace()Ç≈éwíËǵÇΩíuä∑ÇÃèáÇ…çsÇÌÇÍÇ‹Ç∑ÅB
  1550.  
  1551. (3) ó·
  1552.  
  1553.   ~Å®&DeleteCr(1) ;
  1554.   ~Å®&DefineEscape('<','<') ;
  1555.   ~Å®&DefineEscape('>','>') ;
  1556.   ~Å®&DefineEscape('&','&') ;
  1557.   ~Å®&Escape(1) ;
  1558.  
  1559. 7.6 âÊëúê°ñ@ÇÃéÊìæ
  1560.  
  1561. (1) èëéÆ
  1562.  
  1563.   &GraphicSize(âÊëúÉtÉ@ÉCÉãñº, å`éÆ)
  1564.  
  1565. (2) ã@î\
  1566.  
  1567. (2.1) Ç±ÇÃï‘ãpílÇÕÅCâÊëúÉtÉ@ÉCÉãñºÇΔå`éÆÇ≈éwíËÇ≥ÇÍÇΩâÊëúÇÃê°ñ@ÅiïùÅCçÇÇ≥ÅjÇ≈Ç∑ÅBÉAÉåÉCïœêîÇ≈éÛÇØéÊÇËÇ‹Ç∑ÅB
  1568.  
  1569. (2.2) ÉtÉ@ÉCÉãå`éÆÇÃéÌófiÇÕéüÇÃÇΔÇ®ÇËÇ≈Ç∑ÅB
  1570.  
  1571. ---------------------------------
  1572.   å`éÆ    ÉtÉ@ÉCÉãÇÃéÌófi
  1573. ---------------------------------
  1574.   ps      ASCIIï\åªÇÃEPSÉtÉ@ÉCÉã
  1575.   pict    PICTÉtÉ@ÉCÉã
  1576. ---------------------------------
  1577.  
  1578. (3) ó·
  1579.  
  1580.   ~Å®$xfname = &Convert('~$xpath~~FILE~.~$xgraphic~') ;
  1581.   ~Å®($xwidth, $xheight) = &GraphicSize($gr, $xgraphic) ;
  1582.  
  1583.  Ç±ÇÃÉXÉNÉäÉvÉgÇÕâÊëúÇÃïùÇïœêîÅg$xwidthÅhÇ÷çÇÇ≥ÇïœêîÅg$xheightÅhÇ÷ë„ì¸ÇµÇƒÇ¢Ç‹Ç∑ÅBÉtÉ@ÉCÉãñºÇÕÅg~$xpath~~FILE~.~$xgraphic~ÅhÇ≈éwé¶Ç≥ÇÍÅC$xpathÇ™ÅgMyDisk:GraphicData:ÅhÅCFILEëÆê´ílÇ™ÅgDialogSampleÅhÅCïœêîÅg$xgraphicÅhÇÃílÇ™ÅgpictÅhÇ»ÇÁÇŒÅCÅgMyDisk:GraphicData:DialogSample.pictÅhÇΔÇ»ÇËÇ‹Ç∑ÅB
  1584.  
  1585. 7.7 ç\ë¢ëÃÇÃêßå‰
  1586.  
  1587. (1) èëéÆ
  1588.  
  1589.   &Begin(ç\ë¢ëÃñº)          ç\ë¢ëÃÇÃäJénÇéwé¶ÇµÇ‹Ç∑ÅB
  1590.   &End(ç\ë¢ëÃñº)            ç\ë¢ëÃÇÃèIóπÇéwé¶ÇµÇ‹Ç∑ÅB
  1591.   &Level(ç\ë¢ëÃñº)          ç\ë¢ëÃÇÃì¸ÇÍéqÇÃê[Ç≥Çï‘ãpǵNjÇ∑ÅB
  1592.   &Nest(ç\ë¢ëÃñº)           ì¸ÇÍéqï\åªÇÃç\ë¢ëÃî‘çÜÇï‘ãpǵNjÇ∑ÅB
  1593.   &Number(ç\ë¢ëÃñº)         í[ññï\åªÇÃç\ë¢ëÃî‘çÜÇï‘ãpǵNjÇ∑ÅB
  1594.   &Count(ç\ë¢ëÃñº)          ç\ë¢ëÃî‘çÜïtÇØÇéwé¶ÇµÇ‹Ç∑ÅB
  1595.  
  1596. (2) ã@î\
  1597.  
  1598. (2.1) Ç±ÇÍÇÁÇÃä÷êîÇÕÅCç\ë¢ëÃÇÃêßå‰ÇçsǢNjÇ∑ÅBêßå‰Ç∑ÇÈç\ë¢ëÃÇÕÅCç\ë¢ëÃñºÇ≈éØï Ç≥ÇÍÇ‹Ç∑ÅB
  1599.  
  1600. (2.2) ç\ë¢ëÃÇΔÇÕÅCèÕêflÇ‚â”èèëÇÃÇÊǧǻï∂èÕÇ≈ÅCäJénÇΔèIóπÇÃÉ^ÉOÇ™ñæé¶Ç≥ÇÍÅCì¸ÇÍéqÇ…Ç»ÇËǧÇÈç\ë¢ÇéùÇ¡ÇΩLJÇÃÇ≈Ç∑ÅB
  1601.  
  1602. (2.3) ç\ë¢ëÃÇÃì¸ÇÍéqÇÃê[Ç≥ÇÕ1Ç©ÇÁénÇ‹ÇÈàÍòAî‘çÜÇ≈ÅCç≈LJêÛÇ¢ÉåÉxÉãÇÕ1Ç≈ÅCǪÇÍà»è„ÇÃê[Ç≥Ç…Ç»ÇÈÇΩÇ—Ç…1Ç√ǬëùǶNjÇ∑ÅB
  1603.  
  1604. (2.4) ç\ë¢ëÃî‘çÜÇ…ÇÕÅCéüÇÃìÒǬÇÃï\åªå`éÆǙdžÇËÇ‹Ç∑ÅB
  1605.  
  1606. (2.4.1) ì¸ÇÍéqï\åªÇÃç\ë¢ëÃî‘çÜÇÕÅCÅg1ÅhÅCÅg1.1ÅhÅCÅg1.1.1ÅhÅC...Ç©ÇÁénÇ‹ÇËÅCì¸ÇÍéqÇ≤ÇΔÇ…Åg2ÅhÅCÅg1.2ÅhÅCÅg1.1.2ÅhÅC...ÅCÇÃÇÊǧDž1Ç√ǬëùǶNjÇ∑ÅB
  1607.  
  1608. (2.4.2) í[ññï\åªÇÃç\ë¢ëÃî‘çÜÇÕÅCì¸ÇÍéqï\åªÇÃç\ë¢ëÃî‘çÜÇÃç≈âEí[ÇÃî‘çÜÇ≈Ç∑ÅB
  1609.  
  1610. (3) ó·
  1611.  
  1612.  éüÇÃÉXÉNÉäÉvÉgÇÕâ”èèëÇÃî‘çÜïtÇØÇΔéöâ∫Ç∞ÇçsǢNjÇ∑ÅBÅgLIÅhÇÕâ”èèëÇéØï Ç∑ÇÈÇΩÇflÇÃç\ë¢ëÃñºÇ≈Ç∑ÅBì¸ÇÍéqÇÃÉåÉxÉãÇ™1ÇÃèÍçáÅCî‘çÜÇÕÅg(1)ÅhÅCÅg(2)ÅhÅCÅg(3)ÅhÅC...ÇΔÇ»ÇËÇ‹Ç∑ÅB2à»è„ÇÃèÍçáÅCî‘çÜÇÕÅg(1.1)ÅhÅCÅg(1.2)ÅhÅCÅg(1.3)ÅhÅC...ÅCÅg(2.1)ÅhÅCÅg(2.2)ÅhÅC...ÇÃÇÊǧDžǻÇËÇ‹Ç∑ÅBÇ‹ÇΩÅCÉåÉxÉãÇ™àÍǬâ∫Ç™ÇÈìxÇ…1éöÇ√Ǭéöâ∫Ç∞Ç≥ÇÍÇ‹Ç∑ÅB
  1613.  
  1614.   (LI
  1615.   ~Å®&Begin('LI') ;
  1616.   (IT
  1617.   ~Å®&Count('LI') ;
  1618.   ~Å®$xlleft = ' ' x &Level('LI') ;
  1619.   ~Å®$xlnest = &Nest('LI') ;
  1620.   Å®\n~$xlleft~(~$xlnest~) 
  1621.   )LI
  1622.   ~Å®&End('LI') ;
  1623.   ~Å®$xlleft = ' ' x &Level('LI') ;
  1624.  
  1625. 7.8 ï∂éöóÒÇÃï\é¶
  1626.  
  1627. (1) èëéÆ
  1628.  
  1629.   &Display(ï∂éöóÒ)
  1630.  
  1631. (2) ã@î\
  1632.  
  1633. (2.1) ï∂éöóÒÇï\é¶ÇµÇ‹Ç∑ÅBï∂éöóÒÇÕÉRÉ}ÉìÉhÅglÅhÇΔÅgcÅhÇ≈ê›íËÇ≥ÇÍÇΩçsêîÇΔåÖêîÇ…è]ǡǃï\é¶Ç≥ÇÍÇ‹Ç∑ÅB
  1634.  
  1635. (2.2) Ç±ÇÍÇÕéÂÇ…É}ÉbÉvèÓïÒÇÃÉfÉoÉbÉOÇ…ópǢNjÇ∑ÅB
  1636.  
  1637. 8 ÉeÉLÉXÉgå`éÆÇ©ÇÁHTMLå`éÆÇ÷ÇÃïœä∑
  1638.  
  1639. (1) éüÇÃç∂ë§ÇÃÇÊǧDžèëÇ©ÇÍÇΩÉeÉLÉXÉgÇâEë§ÇÃÇÊǧǻHTMLå`éÆÇÃÉeÉLÉXÉgÇ÷ïœä∑Ç≈Ç´Ç‹Ç∑ÅB
  1640.  
  1641.                                    <HTML>
  1642.                                    <HEAD>
  1643.   # ÉRÉìíéïSâ»                     <TITLE>ÉRÉìíéïSâ»</TITLE>
  1644.                                    </HEAD>
  1645.                                    <BODY>
  1646.   1 ÉRÉìíéÇΔÇÕÅH                   <H1>ÉRÉìíéÇΔÇÕÅH</H1>
  1647.    ÉRÉìíéÇÕÅuç©íéÅvÇ≈ÇÕÇ»Ç≠ÅC...   <P>ÉRÉìíéÇÕÅuç©íéÅvÇ≈ÇÕÇ»Ç≠ÅC...
  1648.     •
  1649.     •
  1650.   2 ÉRÉìíéÇÃå`ë‘äwìIçlé@           <H1>ÉRÉìíéÇÃå`ë‘äwìIçlé@</H1>
  1651.    ÉRÉìíéÇÃå`ë‘ÇÕïsâ¬éãljǶDž...   <P>ÉRÉìíéÇÃå`ë‘ÇÕïsâ¬éãljǶDž...
  1652.     •
  1653.   -------------------------        <TABLE BORDER=1>
  1654.     èKê´    ÉRÉìíé                 <TR><TH></TH><TH></TH></TR>
  1655.   -------------------------
  1656.     äÒê∂é  ÉvÉçÉOÉâÉÄ             <TR><TD>ÉjÉbÉ`</TD><TD>ÉvÉçÉOÉâÉÄì‡</TD></TR>
  1657.     ëùêB    ãHÇ…ëùêBÇ∑ÇÈ           <TR><TD>ëùêB</TD><TD>ãHÇ…ëùêBÇ∑ÇÈ</TD></TR>
  1658.     çsìÆ    ÉEÉCÉãÉXÇ…ófiéó         <TR><TD>çsìÆ</TD><TD>ÉEÉCÉãÉXÇ…ófiéó</TD></TR>
  1659.     •
  1660.   -------------------------------- </TABLE>
  1661.   2.1 ÉRÉìíéÇÃãNåπ                 <H2>ÉRÉìíéÇÃãNåπ</H2>
  1662.    ÉRÉìíéÇÃãNåπÇÕ1940îNë„Ç…...     <P>ÉRÉìíéÇÃãNåπÇÕ1940îNë„Ç…...
  1663.     •
  1664.     •
  1665.   2.2 ÉRÉìíéÇÃêiâªò_               <H2>ÉRÉìíéÇÃêiâªò_</H2>
  1666.    åªç›Ç≈ÇÕéüÇÃÇÊǧǻêiâªò_...     <P>åªç›Ç≈ÇÕéüÇÃÇÊǧǻêiâªò_...
  1667.     •
  1668.                                    <OL>
  1669.   (1) î≠ê∂ä˙                       <LI>î≠ê∂ä˙
  1670.   (2) å¥èâìIï™âª                   <LI>å¥èâìIï™âª
  1671.                                    <OL>
  1672.   (2.1) ÉoÉOÇÃëcå`                 <LI>ÉoÉOÇÃëcå`
  1673.   (2.2) ÉEÉCÉãÉXÇÃëcå`             <LI>ÉEÉCÉãÉXÇÃëcå`
  1674.                                    </OL>
  1675.   (3) ìëëøà≥Ç…ÇÊÇÈï™âª             <LI>ìëëøà≥Ç…ÇÊÇÈï™âª
  1676.     •
  1677.                                    </OL>
  1678.     •
  1679.     •
  1680.                                    </BODY>
  1681.                                    </HTML>
  1682.  
  1683. (2) èëéÆÇÃà”ñ°ÇÕéüÇÃÇΔÇ®ÇËÇ≈Ç∑ÅBDZDZÇ≈ÅCÅgdÅhÇÕêîéöóÒÅCÅgbÅhÇÕãÛîí1éöÅCÅgX•••ÅhÇÕÅgXÅhÇ™åJÇËï‘ǵâ¬î\ÅCÅg[X]ÅhÇÕÅgXÅhÇ™è»ó™â¬î\Ç≈džÇÈDZÇΔÇǪÇÍǺÇÍï\ÇÌǵNjÇ∑ÅB
  1684.  
  1685. (2.1) ÉtÉ@ÉCÉãñºãyÇ—ï\ëË
  1686.  
  1687.   # ï∂éöóÒ
  1688.  
  1689.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1690.  
  1691.   <TITLE>ï∂éöóÒ</TITLE>
  1692.  
  1693. (2.2) å©èoǵ
  1694.  
  1695.   d[.d[.d]] b••• ï∂éöóÒ
  1696.  
  1697.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1698.  
  1699.   <Hn>ï∂éöóÒ</Hn>
  1700.  
  1701.  Ç±Ç±Ç≈ÅCÅgnÅhÇÕÅgdÅhÇÃå¬êîÅiǬNjÇËÅCÉåÉxÉãÇÃê[Ç≥ÅjÇ…Ç»ÇËÇ‹Ç∑ÅB
  1702.  
  1703. (2.3) íióé
  1704.  
  1705.   b ï∂éöóÒ
  1706.  
  1707.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1708.  
  1709.   <P>ï∂éöóÒ
  1710.  
  1711. (2.4) äÑïtÇØçœÇ›ï∂éöóÒ
  1712.  
  1713.   bb••• ï∂éöóÒ
  1714.  
  1715.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1716.  
  1717.   <PRE>
  1718.   <LI>ï∂éöóÒ
  1719.     •
  1720.     •
  1721.   </PRE>
  1722.  
  1723. (2.5) î‘çÜïtÇ´ÉäÉXÉgçÄñ⁄
  1724.  
  1725.   (d[.d[.d]]) b••• ï∂éöóÒ
  1726.  
  1727.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅBÅgdÅhÇÃå¬êîÅiǬNjÇËÅCÉåÉxÉãÇÃê[Ç≥ÅjÇ…âûÇ∂ǃì¸ÇÍéqÇÃå`ÇÇΔÇËÇ‹Ç∑ÅB
  1728.  
  1729.   <OL>
  1730.   <LI>ï∂éöóÒ
  1731.     •
  1732.   <OL>
  1733.   <LI>ï∂éöóÒ
  1734.     •
  1735.   </OL>
  1736.   <LI>ï∂éöóÒ
  1737.     •
  1738.   </OL>
  1739.  
  1740. (2.6) ï\
  1741.  
  1742. (2.6.1) ï\ÇÕÅCÉnÉCÉtÉìçsÇ…ÇÊǡǃì™èëÇ´ÇΔñæç◊Ç…ï™Ç©ÇÍÇ‹Ç∑ÅB
  1743.  
  1744.   ---------------------------
  1745.   bb••• ì™èëÇ´
  1746.   ---------------------------
  1747.   bb••• ñæç◊
  1748.     •
  1749.     •
  1750.   ---------------------------
  1751.  
  1752.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1753.  
  1754.   <TABLE BORDER=1>
  1755.   ïœä∑Ç≥ÇÍÇΩì™èëÇ´
  1756.   ïœä∑Ç≥ÇÍÇΩñæç◊
  1757.     •
  1758.     •
  1759.   </TABLE>
  1760.  
  1761. (2.6.2) ì™èëÇ´
  1762.  
  1763.   bb••• ï∂éöóÒ1 [bb••• ï∂éöóÒ2 ]•••
  1764.  
  1765.  ì™èëÇ´ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1766.  
  1767.   <TR><TH>ï∂éöóÒ1</TH><TH>ï∂éöóÒ2</TH>•••</TR>
  1768.  
  1769. (2.6.2) ñæç◊
  1770.  
  1771.  ñæç◊ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1772.  
  1773.   <TR><TD>ï∂éöóÒ1</TD><TD>ï∂éöóÒ2</TD>•••</TR>
  1774.  
  1775. (2.7) âÊëúÉfÅ[É^ñºÇΔë„ë÷ê‡ñæ
  1776.  
  1777.   * b•• ï∂éöóÒ1 [ b•• ï∂éöóÒ2 ]
  1778.  
  1779.  Ç±ÇÃãLèqÇÕéüÇÃÇÊǧDžïœä∑Ç≥ÇÍÇ‹Ç∑ÅB
  1780.  
  1781.   <IMG SRC="ï∂éöóÒ1" [ ALT="ï∂éöóÒ2 ]">
  1782.  
  1783. 9 ä¬ã´ïœêîÉtÉ@ÉCÉã
  1784.  
  1785. !!
  1786. !E
  1787. # AboutSgmlForm
  1788.  
  1789. 1 SgmlForm
  1790. * SgmlForm.gif
  1791.  
  1792. (1) SgmlForm is FREE software. I grant to any user an royalty-free, worldwide, non-exclusive license to use, execute, reproduce, display, perform and distribute copies of SgmlForm. I do not warrant the result that issued from running SgmlForm.
  1793.  
  1794. (2) SgmlForm inputs the source-file(ESIS-formatted) that is generated by SGML-parser `MacSgmls', and outputs the target-file(text-file for TeX or PageMaker) while referring to the map-info.
  1795.  
  1796. (3) SgmlForm is launched with no argument and operated by special commands.
  1797.  
  1798. (4) SgmlsForm was developed by KISI,KAZUTAKA. Write me when you detected any error. Also write me when you adapted to new version.
  1799.   e-mail : NAG00251@niftyserve.or.jp
  1800.  
  1801. 2 Bug Report of SgmlForm
  1802.  
  1803. 2.1 ver.1.0 to 1.2
  1804.  
  1805.  before open
  1806.  
  1807. 2.2 ver.1.3  (96.8.28)
  1808.  
  1809.  first open to public
  1810.  
  1811. 2.3 ver.1.4  (96.9.20)
  1812.  
  1813.  I am sorry that the map-info in this version is not compatible with it in previous version.
  1814.  
  1815. (1) The messages were corrected.
  1816.  
  1817. (2) The map-info-file distinguishes by the DTD that is included in the source-file.
  1818.  
  1819. (3) The TEXT as the file extension was added.
  1820.  
  1821. (4) The arguments format of build-in function &Value() was altered.
  1822.  
  1823. (5) The reference format in replacing-string was altered.
  1824.  
  1825. (6) Several build-in functions were added.
  1826.  
  1827. (7) Several commands were added.
  1828.  
  1829. (8) The environment variable was added.
  1830.  
  1831. (9) The help message and online manual can be changed to either Japanese or English.
  1832.  
  1833. (10) A line is divided into each part by CR. It may be possible to escape an expected crash for the memory saving.
  1834.  
  1835. 3 Files in SgmlForm
  1836.  
  1837. (1) SgmlForm distinguishes each related files by the following file extension.
  1838. -----------------------------------------------------
  1839.   File          PageMaker  TeX   WWW    TEXT  Others
  1840. -----------------------------------------------------
  1841.   source-file     .esi    .esi   .esi   .esi   .esi
  1842.   map-info-file   .MPM    .MTX   .MWW   .MTT    any
  1843.   target-file     .pm     .tex   .htm   .txt    any
  1844.   DTD             .DTD    .DTD   .DTD   .DTD   .DTD
  1845. -----------------------------------------------------
  1846.  
  1847. (2) These files must exist in the same folder.
  1848.  
  1849. (3) For example, use the filename as follows ;
  1850.  
  1851. (3.1) Let us suppose the document instance is `ReadMe' that is based on the document-type-definition `TEXTBOOK.DTD'. MacSgmls will read both files, and will output the file `ReadMe.esi'.
  1852.  
  1853. (3.2) Make up the map-info-file `TEXTBOOK.MPM' if you map the `ReadMe.esi' onto the PageMaker. MacSgmls will read the `ReadMe.esi' while referring to the `TEXTBOOK.MPM', and will output the target-file `ReadMe.pm'. Finally, the PageMaker will read the `ReadMe.pm'.
  1854.  
  1855. (3.3) Make up the map-info-file `TEXTBOOK.MTX' if you map the `ReadMe.esi' onto the TeX. MacSgmls will read the `ReadMe.esi' while referring to the `TEXTBOOK.MTX', and will output the target-file `ReadMe.tex'. Finally, the TeX will read the `ReadMe.tex'.
  1856.  
  1857. 4 Commands of SgmlForm
  1858.  
  1859. (1) The format of command line :
  1860.  
  1861.   f{d}[s][m][t(c)] > command
  1862.  
  1863.  Where,
  1864. ----------------------------------------
  1865.   Symbol   Meaning
  1866. ----------------------------------------
  1867.   f  the filename of source-file
  1868.   d  the filename of DTD-file
  1869.   s  the file extension of source-file
  1870.   m  the file extension of map-info-file
  1871.   t  the file extension of target-file
  1872.   c  the file creator of output-file
  1873. ----------------------------------------
  1874.  
  1875. (2) Command :
  1876. ----------------------------------------------
  1877.   Symbol  Command
  1878. ----------------------------------------------
  1879.   q  quit
  1880.   l  set the number of lines displayed
  1881.   c  the number of columns displayed
  1882.   ?  display the help message
  1883.   d  display the online manual
  1884.   o  save the online manual
  1885.   v  display the version of SgmlForm
  1886.   r  review the text file
  1887.   t  display the document type definition
  1888.   s  select the source-file(ESIS-format)
  1889.   m  select the mapping
  1890.   a  select the file creator of target-file
  1891.   f  form to the target from the source
  1892.   i  display the input text
  1893.   x  display the converted text
  1894.   h  Convert to HTML-format from the text-format
  1895. ----------------------------------------------
  1896.  
  1897. 5 Changing by SgmlForm
  1898.  
  1899. (1) SgmlForm reads the source file.
  1900.  
  1901. (1.1) The declared value is regarded as the ID value when the attribute name is `ID'. This attribute value is assigned an unique number.
  1902.  
  1903. (1.2) The declared value is regarded as the ID reference value when the attribute name is `REFID'. This attribute value is associated with an ID value.
  1904.  
  1905. (2) SgmlForm finds out the DTD that is described in the source-file, and finds out the map-info-file.
  1906.  
  1907. (3) SgmlForm refers to the map-info-file if the SGML-tag requests to replace.
  1908.  
  1909. (3.1) If the map-info includes the Perl-script SgmlForm performs it.
  1910.  
  1911. (3.2) If the map-info includes the replacing-string SgmlForm replaces it, and outputs the target-file.
  1912.  
  1913. (3.3) If the map-info includes no replacing-string SgmlForm do nothing.
  1914.  
  1915. (4) If the source is data SgmlForm outputs it.
  1916.  
  1917. (4.1) If data includes `\n' it is converted to a record-end-character.
  1918.  
  1919. (4.2) If data includes two `\' it is converted to one `\'.
  1920.  
  1921. (4.3) The output of a particular special characters that have to convert an escape characters can be defined using the built-in function &DefineEscape() and &Escape().
  1922.  
  1923. (4.4) The output of a particular characters that have to convert another characters can be defined using the built-in function &DefineReplace() and &Replace().
  1924.  
  1925. (4.5) The output can be suppressed using the build-in function &Inhibit().
  1926.  
  1927. (4.6) The output of record-end-character can be suppressed using the build-in function &DeleteCr().
  1928.  
  1929. 6 Map-Info
  1930.  
  1931. (1) The map-info of SgmlForm is a series of lines. The an initial character of a line decides the format. Where, `->' means TAB-code.
  1932.  
  1933.   SGML-tag->condition-expression
  1934.   ~->script
  1935.   ~->  •
  1936.   ~->  •
  1937.   ->replacing-string
  1938.   ->  •
  1939.   ->  •
  1940.   ->  •
  1941.  
  1942.   SGML-tag->condition-expression
  1943.   ~->script
  1944.   ~->  •
  1945.   ~->  •
  1946.   ->replacing-string
  1947.   ->  •
  1948.   ->  •
  1949.   ->  •
  1950.  
  1951. (2) Lines can be arbitrarily long.
  1952.  
  1953. (3) The SGML-tag must be unique in map-info as a whole. The value of condition-expression must be unique in the combination if you specify two and more SGML-tags.
  1954.  
  1955. 6.1 comment
  1956.  
  1957. (1) Format
  1958.  
  1959.   !comment
  1960.  
  1961. (2) Function
  1962.  
  1963. (2.1) This line is a comment.
  1964.  
  1965. (2.2) You can write the comment in anywhere.
  1966.  
  1967. (3) Example
  1968.  
  1969.   ! This is a comment line.
  1970.  
  1971. 6.2 SGML-tag and Condition-expression
  1972.  
  1973. (1) Format
  1974.  
  1975.   (gid->condition-expression
  1976.   )gid->condition-expression
  1977.   C->condition-expression
  1978.  
  1979. (2) Function
  1980.  
  1981. (2.1) The left part of this line is a SGML-tag that requests the replacing.
  1982. --------------------------------------------------------------------
  1983.   Format    SGML-tag
  1984. --------------------------------------------------------------------
  1985.   (gid    the start-tag of generic-identifier `gid'
  1986.   )gid    the end-tag of generic-identifier `gid'
  1987.   C       indicates that the document was a conforming SGML document
  1988. --------------------------------------------------------------------
  1989.  
  1990. (2.2) The right part of this line is a condition-expression. The condition-expression must be the Perl condition-expression. The replacing-process is caused if the return value of condition-expression is true. The replacing-process is always caused if the condition-expression is not specified.
  1991.  
  1992. (3) Example
  1993.  
  1994.   (LI->$xlist
  1995.  
  1996.  The replacing-process is caused when the value of variable `$xlist' is 1.
  1997.  
  1998. 6.3 Replacing-String
  1999.  
  2000. (1) Format
  2001.  
  2002.   ->Replacing-String
  2003.  
  2004. (2) Function
  2005.  
  2006. (2.1) The right part of this line is a replacing-string for the SGML-tag.
  2007.  
  2008. (2.2) The replacing-string consists of one or more lines.
  2009.  
  2010. (2.3) The replacing-string is evaluated by the following rule, and is outputted.
  2011.  
  2012. (2.3.1) The `\n' in the replacing-string converts to a record-end-character.
  2013.  
  2014. (2.3.2) The `~aname~' in the replacing-string converts to the value corresponding to the attribute name `aname' in the current generic-identifier. The build-in function &Value() can refer to this value.
  2015.  
  2016. (2.3.3) The `~#gid_aname~' in the replacing-string converts to an unique number that is assigned to the value of attribute name `ID' and `REFID' in the generic-identifier `gid'. The build-in function &Refer() can refer to this value.
  2017.  
  2018. (2.3.4) The `~$vname~' in the replacing-string converts to the Perl value corresponding to the variable name `$vname'.
  2019.  
  2020. (3) Example
  2021.  
  2022. (3.1) Value of attribute `ID' and its Numbering
  2023.  
  2024.  Assume the following ESIS-data was input and the value `HYPERCARD' of attribute `ID' of generic-identifier `FN' was assigned to 123.
  2025.  
  2026.   AID TOKEN HYPERCARD
  2027.   ATYPE TOKEN AUTHNOTE
  2028.   (FN
  2029.   -HyperCard is a trade mark of Apple Computer, Inc.
  2030.  
  2031.  When `(FN' is input the following map-info acts.
  2032.  
  2033.   (FN
  2034.   ->~ID~=~#FN_ID~
  2035.  
  2036.  The following string is output.
  2037.  
  2038.   HYPERCARD=123
  2039.  
  2040. (3.2) Refer to ID
  2041.  
  2042.  Assume the following ESIS-data was input and the value `HYPERCARD' of attribute `ID' of generic-identifier `FN' was assigned to 123.
  2043.  
  2044.   -DicSGML is the dictionary, is HyperCard 
  2045.   AREFID TOKEN HYPERCARD
  2046.   APAGE TOKEN NO
  2047.   (FNREF
  2048.   )FNREF
  2049.   -Stackware 
  2050.  
  2051.  When `(FNREF' is input the following map-info acts.
  2052.  
  2053.   (FNREF
  2054.   ->~REFID~=~#FN_REFID~
  2055.  
  2056.  The following string is output.
  2057.  
  2058.   HYPERCARD=123
  2059.  
  2060.  Notice that the example of replacing-string is not `~#FNREF_REFID~'. The generic-identifier that decided ID is `FN', not `FNREF'.
  2061.  
  2062. (3.3) Implied Value
  2063.  
  2064.  Assume the following ESIS-data was input.
  2065.  
  2066.   ANUMBER CDATA 
  2067.   AID IMPLIED
  2068.   ASTITLE IMPLIED
  2069.   (H1
  2070.   (H1T
  2071.   -MacSgmls
  2072.  
  2073.  When `(H1' is input the following map-info acts.
  2074.  
  2075.   (H1
  2076.   ->~ID~=~#H1_ID~
  2077.  
  2078.  The following string is output. Both ~ID~ and ~#H1_ID~ are empty character.
  2079.  
  2080.   =
  2081.  
  2082. 6.4 Script
  2083.  
  2084. (1) Format
  2085.  
  2086.   ~->script
  2087.  
  2088. (2) Function
  2089.  
  2090. (2.1) The right part of this line is a Perl-script that should perform before the replacing-process.
  2091.  
  2092. (2.2) Do not use the control structure which consists of separated lines because SgmlForm performs a line to each phases.
  2093.  
  2094. (2.3) The initial of variable name in your script should be `$x'. Such variables can avoid the same word in SgmlForm variables.
  2095.  
  2096. (2.4) The following build-in functions are available.
  2097.  
  2098. 7 Available Built-in Functions
  2099.  
  2100. 7.1 Attribute Value, ID number
  2101.  
  2102. (1) Format
  2103.  
  2104.   &Value(aname)         get a value of attribute name `aname' of current generic-identifier
  2105.   &Refer(gid, aname)    get an unique number of identifier
  2106.  
  2107. (2) Function
  2108.  
  2109. (2.1) &Value() acts the same function as `~aname~'. &Refer() acts the same function as `~#gid_aname~'. Thus the attribute name of &Refer() must be either `ID' or `REFID'. 
  2110.  
  2111. (2.2) The undefined value is returned when no value (IMPLIED) is given the attribute name.
  2112.  
  2113. (2.3) The attribute appears earlier than the start-tag in the source-file , but these build-in functions can use at both the start-tag and the end-tag.
  2114.  
  2115. (2.4) These build-in functions refer to the attribute of start-tag which corresponds to end-tag, when structure of SGML-tags consists of the nest.
  2116.  
  2117. (3) Example
  2118.  
  2119.   (FIG
  2120.   ~->$xfigid = &Value('ID') ;
  2121.  
  2122.  The value of ID-attribute of FIG-tag is assigned into a variable `$xfigid'. When the succeeding tag refers to `$xfigid' the ID becomes the number of the figure uniquely.
  2123.  
  2124. 7.2 Hook Data
  2125.  
  2126. (1) Format
  2127.  
  2128.   &Hook(gid)            command that SgmlForm gets the data which corresponds to last generic-identifier `gid'
  2129.   &Data(gid)            get the data which is got by &Hook()
  2130.  
  2131. (2) Function
  2132.  
  2133. (2.1) The generic-identifier `gid' is the same to &Hook().
  2134.  
  2135. (2.2) Data is deleted if you refer to it once.
  2136.  
  2137. (3) Example
  2138.  
  2139.   (TLINE
  2140.   ~->&Hook('TLINE') ;
  2141.     •
  2142.     •
  2143.   
  2144.   (other
  2145.   ~->$xtline = &Data('TLINE') ;
  2146.  
  2147.  In TLINE-start-tag, &Hook() commands that SgmlForm gets data which corresponds to last TLINE-tag. Its value is saved when SgmlForm reads TLINE-tag. In the other tag, &Data() assigns its value into the variable `$xtline'. Its value is deleted after assignment.
  2148.  
  2149. 7.3 Inhibit Data Output
  2150.  
  2151. (1) Format
  2152.  
  2153.   &Inhibit(gid)
  2154.  
  2155. (2) Function
  2156.  
  2157. (2.1) &Inhibit() commands the suppression of data which corresponds to next generic-identifier `gid'.
  2158.  
  2159. (2.2) &Inhibit() returns no value.
  2160.  
  2161. 7.4 Convert Replacing-string
  2162.  
  2163. (1) Format
  2164.  
  2165.   &Convert(chstr)
  2166.  
  2167. (2) Function
  2168.  
  2169. (2.1) &Convert() returns the replacing-string `chstr' which is evaluated.
  2170.  
  2171. 7.5 Character Conversion
  2172.  
  2173. (1) Format
  2174.  
  2175.   &DefineReplace(str1, str2)   define a string `str1' as a string `str2'
  2176.   &DefineEscape(schr, esc)     define a special character `schr' as an escape string `esc'
  2177.   &Replace(sw)                 replace if sw is 1, or else do nothing
  2178.   &Escape(sw)                  escape if sw is 1, or else do nothing
  2179.   &DeleteCr(sw)                suppress CR(\n) if sw is 1, or else output
  2180.  
  2181. (2) Function
  2182.  
  2183. (2.1) These build-in functions command SgmlForm to replace the string in data by another string.
  2184.  
  2185. (2.2) The process during data output performs as follows ; the conversion of octal notation, the deletion of CR(`\n') denoted by &DeleteCr(), the replacing by &DefineEscape() and &Escape(), the replacing denoted by &DefineReplace() and &Replace().
  2186.  
  2187. (3) Example
  2188.  
  2189.   ~Å®&DeleteCr(1) ;
  2190.   ~Å®&DefineEscape('<','<') ;
  2191.   ~Å®&DefineEscape('>','>') ;
  2192.   ~Å®&DefineEscape('&','&') ;
  2193.   ~Å®&Escape(1) ;
  2194.  
  2195. 7.6 Graphic Size
  2196.  
  2197. (1) Format
  2198.  
  2199.   &GraphicSize(fname, ftype)
  2200.  
  2201. (2) Function
  2202.  
  2203. (2.1) &GraphicSize() returns the size (width and height) of picture which is expressed by filename `fname' and file type `ftype'. These values are an array variable.
  2204.  
  2205. (2.2) The file type is as follows ;
  2206.  
  2207. -------------------------------------------
  2208.   ftype        file type
  2209. -------------------------------------------
  2210.   ps          EPS file expressed by ASCII
  2211.   pict        PICT file
  2212. -------------------------------------------
  2213.  
  2214. (3) Example
  2215.  
  2216.   ~->$xfname = &Convert('~$xpath~~FILE~.~$xgraphic~') ;
  2217.   ~->($xwidth, $xheight)  = &GraphicSize('~$xpath~~FILE~~$xgraphic~', $xgraphic) ;
  2218.  
  2219.  The width of picture is assigned into `$xwidth'. The height of picture is assigned into `$xheight'. The file name is denoted by `~$xpath~~FILE~.~$xgraphic~'. When $xpath is 'MyDisk:GraphicData:', the value of FILE-attribute is 'DailogSample' and the variable `$xgraphic' is 'pict', the EPS file name is 'MyDisk:GraphicData:DailogSample.pict'.
  2220.  
  2221.  
  2222. 7.7 Structure Control
  2223.  
  2224. (1) Format
  2225.  
  2226.   &Begin(sname)          command the beginning of the structure
  2227.   &End(sname)            command the end of the structure
  2228.   &Level(sname)          get a nested number in the structure
  2229.   &Nest(sname)           get a consecutive number in the structure
  2230.   &Number(sname)         get a consecutive number in the structure
  2231.   &Count(sname)          count the number of the structure
  2232.  
  2233. (2) Function
  2234.  
  2235. (2.1) These build-in functions control the structure. The structures are identified by the structure name.
  2236.  
  2237. (2.2) The structures are text such as the listing or chapter and section, are specified by start-tag and end-tag and may be the nest.
  2238.  
  2239. (2.3) The level of structures in nest is expressed by a consecutive number. Most shallow level is 1. More deeper level is increased in 1 each.
  2240.  
  2241. (2.4) The formats of structure number are as follows ;
  2242.  
  2243. (2.4.1) The structure number in the nest expression begins such as `1', `1.1', `1.1.1',... and increases such as `2', `1.2', `1.1.2',....
  2244.  
  2245. (2.4.2) The structure number in the terminal expression is most right number of the nest expression.
  2246.  
  2247. (3) Example
  2248.  
  2249.  The following script performs the numbering and indentation in listing. The structure name `LI' acts to identify the listing. If the level of nest is 1 the number is such as `(1)', `(2)', `(3)', .... If the level of nest is two or more, the number is such as `(1.1)', `(1.2)', `(1.3)', ..., `(2.1)', `(2.2)', ... Each line indents another when the level is down.
  2250.  
  2251.   (LI
  2252.   ~->&Begin('LI') ;
  2253.   (IT
  2254.   ~->&Count('LI') ;
  2255.   ~->$xlleft = ' ' x &Level('LI') ;
  2256.   ~->$xlnest = &Nest('LI') ;
  2257.   ->\n~$xlleft~(~$xlnest~) 
  2258.   )LI
  2259.   ~->&End('LI') ;
  2260.   ~->$xlleft = ' ' x &Level('LI') ;
  2261.  
  2262. 7.8 Display the String
  2263.  
  2264. (1) Format
  2265.  
  2266.   &Display(str)
  2267.  
  2268. (2) Function
  2269.  
  2270. (2.1) &Display() display the string `str'. The dispaly is controlled by the lines and columns that are set by the command `l' and `c'.
  2271.  
  2272. (2.2) This build-in function uses for the debug mainly.
  2273.  
  2274. 8 Convert to HTML-format from the text-format
  2275.  
  2276. (1) The text in left side of the following can convert to HTML in right side.
  2277.  
  2278.                                    <HTML>
  2279.                                    <HEAD>
  2280.   # BUG ENCYCLOPEDIA               <TITLE>BUG ENCYCLOPEDIA </TITLE>
  2281.                                    </HEAD>
  2282.                                    <BODY>
  2283.   1 Who is Bug ?                   <H1>Who is Bug ?</H1>
  2284.    Bug is not a insect,...         <P>Bug is not a insect,...
  2285.     •
  2286.     •
  2287.   2 Morphological study of Bug     <H1>Morphological study of Bug</H1>
  2288.    Since bug is not visible,...    <P>Since bug is not visible,...
  2289.     •
  2290.   -------------------------        <TABLE BORDER=1>
  2291.     Habit        Bug               <TR><TH>Habit</TH><TH>Bug</TH></TR>
  2292.   --------------------------------
  2293.     host         program           <TR><TD>host</TD><TD>in program</TD></TR>
  2294.     propagation  rare              <TR><TD>propagation</TD><TD>rare</TD></TR>
  2295.     behaviour    similar to virus  <TR><TD>behaviour</TD><TD>similar to virus</TD></TR>
  2296.     •
  2297.   -------------------------------- </TABLE>
  2298.   2.1 Origin of Bug                <H2>Origin of Bug</H2>
  2299.    Bugs were developed in 1940s... <P>Bugs were developed in 1940s...
  2300.     •
  2301.     •
  2302.   2.2 Theory of Bug's Evolution    <H2>Theory of Bug's Evolution</H2>
  2303.    The following theory of evol... <P>The following theory of evol...
  2304.     •
  2305.                                    <OL>
  2306.   (1) Development Period           <LI>Development Period
  2307.   (2) First Differentiation        <LI>First Differentiation
  2308.                                    <OL>
  2309.   (2.1) Bug's Ancestor             <LI>Bug's Ancestor
  2310.   (2.2) Virus's Ancestor           <LI>Virus's Ancestor
  2311.                                    </OL>
  2312.   (3) Differentiation by Selection <LI>Differentiation by Selection
  2313.     •
  2314.                                    </OL>
  2315.     •
  2316.     •
  2317.                                    </BODY>
  2318.                                    </HTML>
  2319.  
  2320. (2) The meaning of format is as follows ; Where, `d' means a number, `b' means a blank, `X•••' means that X may repeat, `[X]' means that X may be optional.
  2321.  
  2322. (2.1) File name and Title
  2323.  
  2324.   # str
  2325.  
  2326.  This description is converted to such as the following.
  2327.  
  2328.   <TITLE>str</TITLE>
  2329.  
  2330. (2.2) Header
  2331.  
  2332.   d[.d[.d]] b••• str
  2333.  
  2334.  This description is converted to such as the following.
  2335.  
  2336.   <Hn>str</Hn>
  2337.  
  2338.  Where, `n' is the number of `d'(i.e. deep of level).
  2339.  
  2340. (2.3) Paragraph
  2341.  
  2342.   b str
  2343.  
  2344.  This description is converted to such as the following.
  2345.  
  2346.   <P>str
  2347.  
  2348. (2.4) Preformatted string
  2349.  
  2350.   bb••• str
  2351.  
  2352.  This description is converted to such as the following.
  2353.  
  2354.   <PRE>
  2355.   <LI>str
  2356.     •
  2357.     •
  2358.   </PRE>
  2359.  
  2360. (2.5) Numbered List
  2361.  
  2362.   (d[.d[.d]]) b••• str
  2363.  
  2364.  This description is converted to such as the following. The nest is structured on depending upon the number of `d'(i.e. deep of level).
  2365.  
  2366.   <OL>
  2367.   <LI>str
  2368.     •
  2369.   <OL>
  2370.   <LI>str
  2371.     •
  2372.   </OL>
  2373.   <LI>str
  2374.     •
  2375.   </OL>
  2376.  
  2377. (2.6) Table
  2378.  
  2379. (2.6.1) The table is divided in one header and details by hyphens.
  2380.  
  2381.   ---------------------------
  2382.   bb••• Header
  2383.   ---------------------------
  2384.   bb••• Detail
  2385.     •
  2386.     •
  2387.   ---------------------------
  2388.  
  2389.  This description is converted to such as the following.
  2390.  
  2391.   <TABLE BORDER=1>
  2392.   Converted Header
  2393.   Converted Detail
  2394.     •
  2395.     •
  2396.   </TABLE>
  2397.  
  2398. (2.6.2) Header
  2399.  
  2400.   bb••• str1 [bb••• str2 ]•••
  2401.  
  2402.  The description of Header is converted to such as the following.
  2403.  
  2404.   <TR><TH>str1</TH><TH>str2</TH>•••</TR>
  2405.  
  2406. (2.6.2) Detail
  2407.  
  2408.  The description of Detail is converted to such as the following.
  2409.  
  2410.   <TR><TD>str1</TD><TD>str2</TD>•••</TR>
  2411.  
  2412. (2.7) Graphic data name and Alternation name
  2413.  
  2414.   * b•• str1 [ b•• str2 ]
  2415.  
  2416.  This description is converted to such as the following.
  2417.  
  2418.   <IMG SRC="str1" [ ALT="str2 ]">
  2419.  
  2420. 9 Evironment-variables 
  2421.  
  2422. !!
  2423.  
  2424.